这 是 我 翻译 的 第 3 本 关于 Oracle PL/SQL 的 书籍 。 第 1 本 一 一 《Oracle PL/SQL 实 战 》 适 合 有 一 定 PL/SQL 基 础 的 读者 ， 省 略 了 基础 内 容 。 第 2 本 一 一 
《精通 Oracle Database 12c SQL&PL/SQL 编 程 》 主 要 讲解 Oracle SQL， 只 介绍 了 部 分 PL/SQL 基 础 知识 。 而 本 书 比 前 两 本 更 全 面 、 更 系统 ， 它 由 浅 入 
深 地 详细 讲解 PL/SQL， 基 本 上 涵盖 了 PL/SQL 开 发 各 个 方面 的 内 容 ， 包 括 最 新 的 Oracle 12c 版 本 中 新 增 和 增强 的 PL/SQL 功 能 ， 这 些 新 功能 使 得 利用 
PL/SQL 开 发 Oracle 应 用 程序 更 加 高 效 。 本 书 还 包含 大 量 可 运行 的 示例 ， 便 于 读者 理解 和 牢固 掌握 所 学 知识 。 


我 要 感谢 妻子 李 新 ， 她 主 修身 语 专 业 ， 作 为 本 书 的 第 一 读者 ， 帮 助 我 检查 出 很 多 生硬 的 译文 ， 并 把 它们 修改 得 更 加 通顺 。 她 还 承担 了 家 务 和 培养 教 
育 孩 子 的 重任 ， 使 我 可 以 专心 翻译 本 书 。 


还 要 感谢 我 的 儿子 户 令 一 ， 他 在 我 翻译 书稿 时 上 自己 安静 地 读书 和 玩 要 ， 放 人 茎 了 很 多 出 去 玩 的 机 会 ， 本 书 也 有 他 的 一 份 功劳 。 
感谢 机 械 工 业 出 版 社 的 李 艺 编辑 ， 她 对 译文 进行 把 和 天， 并 对 语言 进行 润色 ， 使 本 书 可 读 性 更 好 。 


希望 本 书 能 帮助 读者 提高 Oracle PL/SQL 开 发 水 平 。 由 于 译 者 经 验 和 水 平 有 限 ， 译 文中 难免 有 不 受 之 处 ， 奶 请 读者 批评 指正 ! 


本 书 用 一 种 独特 的 风格 介绍 了 Oracle 的 PL/SQL 程 序 设 计 语 言 。 它 促使 你 通过 使 用 Oracle PL/SQL， 而 不 只 是 通过 阅读 来 学 习 它 。 

正如 语法 手册 通过 首先 展示 名 词 和 动词 的 示例 ， 然 后 要 求 你 写 句子 来 讲解 它们 ， 本 书 也 通过 首先 展示 游标 、 循 环 、 过 程 、 触 友 器 等 的 示例 ， 要 求 你 
目 己 创建 这 些 对 象 来 讲解 它们 。 
本 书 的 目标 读者 

本 书 是 为 那些 需要 快速 地 详细 了 解 Oracle 的 PL/SQL 语 言 编 程 的 人 员 准 备 的 。 理 想 的 读者 是 那些 具有 以 下 条 件 的 人 员 : 他 们 有 某 些 关 系数 据 库 的 经 
验 ， 具 有 一 定 的 Oracle 经 验 ， 特别 是 SQL、SQL*Plus 和 SQL Developer， 但 对 于 PL/SQL 或 大 多 数 其 他 编程 语言 只 有 很 少 的 经 验 或 根本 没有 经 验 。 


本 书 的 内 容 主 要 基于 纽约 市 哥伦比亚 大 学 计算 机 技术 与 应 用 (СТА) 项 目的 PL/SQL 导 论 课程 教学 素材 。 学 生 的 层次 是 相当 不 同 的 ， 因 为 有 一 些 学 生 
具有 多 年 的 信息 技术 (IT) 和 编程 经 验 ， 但 没有 Oracle PL/SQL 方 面 的 经 验 ， 还 有 一 些 学 生 则 完全 没有 IT 或 编程 经 验 。 与 这 门 课 一 样 ， 本 书 内 容 兼 顾 了 这 
两 种 极端 的 需求 。 配 套 网 站 上 的 补充 练习 可 以 作为 讲解 这 样 一 门 PL/SQL 课 程 的 配套 实验 和 家 庭 作 业 。 


本 书 的 组 织 结构 


本 书 革 在 首先 通过 解释 编程 概念 或 特定 的 PL/SQL 功 能 ， 然 后 通过 示例 进一步 说 明 它 来 教会 你 使 用 Oracle PL/SQL。 通 常情 况 下 ， 当 讨论 更 深入 的 主 
题 时 ， 这 些 示 例 将 被 修改 ， 以 说 明 新 涉及 的 内 容 。 此 外 ， 本 书 的 大 多 数 草 节 都 具有 可 在 配套 网 站 获得 的 补充 练习 部 分 。 这 些 练习 可 以 帮助 你 测试 对 新 内 
容 的 理解 程度 。 


每 章 的 基本 结构 都 如 下 : 


目标 


目标 部 分 列 出 此 章 所 包含 的 主题 。 基 本 上 每 个 目标 都 对 应 于 一 个 实验 。 
简介 提供 该 章 涉 及 的 概念 和 功能 的 简要 概述 。 


每 个 实验 都 涵盖 了 在 该 章 的 目标 部 分 列 出 的 一 个 目标 。 在 一 些 情况 下 ， 在 实验 中 ， 目 标 被 进一步 分 解 为 更 小 的 单个 主题 。 然 后 每 个 这 样 的 主题 都 借 
助 示例 和 相应 的 输出 来 说 明和 展示 。 需 要 注意 的 是 ， 每 个 示例 都 尽 可 能 完整 地 提供 ， 这 使 得 其 代码 是 现成 可 用 的 。 


每 草 最 后 都 有 一 个 忌 结 ， 它 对 此 章 讨论 的 内 容 进行 了 简要 忆 结 。 此 外 ，“ 上 顺便 说 说 ”部 分 会 说 明 某 个 特定 章节 是 人 否 有 配套 网 站 上 的 补充 练习 。 


天 于 配套 网 站 


配套 网 站 位 于 informit.comytitle/0133796787。 你 会 在 那里 发 现 三 项 非常 重要 的 内 容 : 
. 创建 和 安装 STUDENT 模式 所 需要 的 文件 。 
包含 本 书 各 章 使 用 的 示例 脚本 的 文件 。 
` 补充 练习 的 章节 ， 其 中 有 两 部 分 : 


“ 问 与 答 ” 部 分 ， 其 中 包含 某 个 特定 的 章 所 介绍 内 容 的 相关 问题 ， 以 及 这 些 问题 的 参考 答案 。 通 常情 况 下 ， 要 求 你 基于 一 些 需求 修改 一 个 肢 


本 ， 并 解释 这 些 修改 造成 的 输出 差异 。 请 注意 ， 这 部 分 也 被 组 织 成 与 书 中 的 相应 章节 类 似 的 实验 。 


“ 试 一 试 ” 部 分 ， 要 求 你 根据 给 定 的 需求 来 创建 脚本 。 此 部 分 与 “ 问 与 答 ” 部 分 不 同 ， 没 有 给 这 些 问 题 提供 任何 脚本 。 相 反 ， 你 需要 自己 创建 
全 部 脚本 。 


顺便 况 况 


如 果 想 执行 各 章节 和 网 站 上 提供 的 脚本 ， 需 要 在 使 用 本 书 之 前 访问 配套 网 站 ， 下 载 student 模 式 ， 并 将 其 安装 在 数据 库 中 。 


先决 条 件 


完成 本 书 中 的 实验 既 需 要 有 软件 程序 ， 也 需要 有 必要 的 知识 。 需 要 注意 的 是 ， 本 书 涉及 的 一 些 功能 只 适用 于 Oracle 12c。 但 是 ， 只 要 利用 下 列 产 
品 ， 融 能 够 运行 绝 大 部 分 的 示例 并 完成 补 苑 练习 和 “ 试 一 坛 ” 部 分 : 


· Oracle 11g 或 更 高 版 本 。 
· SQL Developer 或 SQL*Plus 11g 或 更 高 版 本 。 
‚ 接 入 互联 网 。 


你 可 以 使 用 Oracle 个 人 版 或 Oracle 企 业 版 来 执行 本 书 的 示例 。 如 果 你 使 用 Oracle 企 业 版 ， 则 可 以 在 一 台 远 程 服务 器 或 自己 的 本 地 机 器 上 运行 。 建 议 
你 使 用 Oracle 11g 或 Oracle 12C， 以 便 执行 本 书 全 部 或 大 部 分 的 示例 。 当 某 个 功能 仅 适 用 于 Oracle 数 据 库 的 最 新 版 本 时 ， 本 书 会 明确 地 说明 。 此 外 ， 你 
应 该 能 够 使 用 并 熟悉 SQL Developer 或 SQL*Plus。 


关于 如 何在 SQL Developer 或 SQL*Plus 中 编辑 和 运行 脚本 有 许多 选择 。 也 有 许多 可 用 来 编辑 和 调试 PLUSQL 代 码 的 第 三 方程 序 。 本 书 中 同时 采用 了 
SQL Developer 和 SQL*Plus 来 说 明 ， 因 为 这 两 者 都 是 Oracle 提 供 的 工具 ， 并 作为 Oracle 安 六 的 一 部 分 提供 。 


顺便 况 况 


第 1 章 具 有 名 为 “PLVSQL 开 发 环境 ”这样 一 个 实验 ， 它 介绍 了 如 何 开 始 使 用 SQL Developerf 和 SQL#*Plus。 然 而 ， 本 书 使 用 的 绝 大 多 数 示例 都 在 SQL 
Developet 中 执行 。 


天 于 示例 模式 


STUDENT 模式 包含 表 和 其 他 对 象 ， 用 来 保存 一 个 虚构 大 学 的 注册 和 登记 系统 的 相关 信息 。 系 统 中 有 10 个 表 ， 分 别 存 储 学 生 、 课 程 、 教 师 等 的 相关 数 
据 。 除 了 存储 学 生 和 教师 的 联系 信息 (地 址 和 电话 号 码 ) ， 以 及 有 关 课 程 的 描述 性 信息 (费用 和 先决 课程 ) 之 外 ， 本 模式 还 记录 特定 课程 的 课 班 
(section) ， 以 及 学 生 已 经 就 读 的 课 班 。 


SECTION 表 是 在 本 模式 中 最 重要 的 表 之 一 ， 因 为 它 人 存储 有 关 已 为 每 门 课程 创建 的 各 个 课 班 的 数据 。 每 个 课 班 记 录 还 存储 此 课 班 在 哪里 及 何 时 上 课 ， 
以 及 哪 位 教师 会 教授 此 课 班 的 信息 。SECTION 表 与 COURSE 和 INSTRUCTOR 表 相关 。 


ENROLLMENT 表 是 同样 重要 的 ， 因 为 它 记 录 哪些 学 生 就 读 于 哪些 课 班 。 每 个 入 学 记录 还 存储 有 关 学 生 的 成 绩 和 注册 日 期 信息 。ENROLLMENT 表 与 
STUDENT 和 SECTION 表 相关 。 


STUDENT 模式 还 有 其 他 几 个 表 来 管理 在 每 个 课 班 中 的 每 个 学 生 的 成 绩 。 


STUDENT 模式 的 详细 结构 参见 附录 B。 


Oracle 12c PL/SQL 新 特性 简介 


Oracle 12c 已 经 为 PL/SQL3 引 入 了 许多 新 特性 和 改进 。 这 里 简要 介绍 了 未 在 本 书 中 讨论 的 特性 ， 并 指出 了 本 书 涉及 的 特性 所 在 的 具体 章节 。 在 作为 
Oracle 联 机 帮助 的 一 部 分 提供 的 《PL/SQL Language Reference》 手 册 的 “Changes in This Release for Oracle Database PL/SQL Language 
Reference” 一 节 也 可 找到 这 里 描述 的 特性 清单 。 


PL/SQL 的 新 特性 和 改进 如 下 : 
- 调用 者 权限 函数 可 缓存 结果 。 
. PL/SQL 独 有 的 更 多 数据 类 型 可 以 跨越 PL/SQL 到 SQL 的 接口 子 句 。 
. ACCESSIBLE BY F 8). 
- FETCH FIRST 8) o 
. 可 将 角色 授予 PL/SQL 包 和 独立 子 程 序 。 
` 更 多 的 数据 类 型 在 SQL 和 PL/SQL 中 具有 相同 的 最 大 大 小 。 
可 插 拔 数据 库 上 的 数据 库 触 发 器 。 
. LIBRARY 可 定义 为 DIRECTORY 对 象 ， 并 可 带 有 CREDENTIAL 子 钨 。 
` 隐 式 语句 结果 。 
- BEQUEATH CURRENT_USER 视 图 。 
. INHERIT PRIVILEGES 和 INHERIT ANY PRIVILEGES 特 权 。 
: 不 可 见 列 。 
对象， 而 不 是 类 型 ， 是 有 版 次 或 无 版 次 的 。 
- 在 SQL 中 运行 得 更 快 的 PLVSQL 函 数 。 
- 预定 义 的 查询 指令 $$PLSQL_UNIT_OWNER 和 $$PLSQL_UNIT_TYPE。 


. 编译 参数 PLSQL_DEBUG 已 弃 用 。 


调用 者 权限 消 数 可 缓存 结果 


在 Oracle 产 品 中 创建 存储 子 程序 时 ， 可 把 它 创 建 为 定义 者 权限 (Definer Right, DR) 单元 或 调用 者 权限 (Invoker Right, IR) 单元 。DR 单 元 将 以 
其 所 有 者 的 权限 执行 ， 而 IR 单 元 将 以 调用 该 特定 单元 的 用 户 权 限 执行 。 默 认 情况 下 ， 除 非 明确 指定 ， 否 则 仓储 子 程序 都 将 创建 为 DR 单元 。 一 个 特定 单元 
是 被 当 作 DR 还 是 IR 单 元 由 AUTHID 属 性 来 控制 ， 此 属性 可 以 设置 为 DEFINER (默认 ) 或 CURRENT_USER。 


在 Oracle 12c 之 前 ， 使 用 调用 者 权限 子 句 (AUTHID CURRENT_USER) 创建 的 函 数 不 能 缓存 结果 。 要 创建 作为 |R 单 元 的 函数 ， 必 须 把 AUTHID 子 名 
添加 到 函数 规 学 中 。 


结果 缓 仔 阔 数 是 其 参数 值 和 结果 都 仓储 在 缓存 中 的 函数 。 因 此 ， 使 用 相同 的 参数 值 来 调用 这 样 的 函数 时 ， 其 结果 是 从 缓存 中 提取 的 ， 而 不 是 重新 计 


算 的 。 要 对 采 个 函数 局 用 结果 缓 仔 ， 必 须 把 RESULT_CACHE 子 句 添加 到 阔 数 规范 中 ， 如 以 下 例子 所 示 (调用 者 权限 子 句 和 结果 缓存 子 句 以 粗 体 突出 显 


7R) o 
示例 “以 调用 者 权限 创建 的 结果 缓 仓 国 数 


CREATE OR REPLACE FUNCTION get student гес (р student іа IN NUMBER) 
RETURN STUDENT%ROWTYPE 
AUTHID CURRENT USER 


RESULT CACHE RELIES ON (student) 
IS 
v student гес STUDENTSROWTYPE ; 
BEGIN 
SELECT * 
INTO v student rec 
FROM student 
WHERE student id = p student id; 


RETURN у student rec; 
EXCEPTION 
WHEN по data found 
THEN 
RETURN NULL; 
END get student гес; 


/ 
-- 执行 新 创建 的 函数 
DECLARE 
v_student_rec STUDENT%ROWTYPE; 
BEGIN 
v_student_rec := get student rec (p_student_id => 230); 
END; 


请 注意 ， 如 果 学 生 ID 为 230 的 学 生 记录 已 经 在 结果 缓存 中 ， 那 么 此 函数 将 从 结果 缓 仓 返 回 学 生 记 录 。 在 相反 的 情况 下 ， 将 从 STUDENT 表 选 择 该 学 生 
记录 并 将 其 添加 到 缓存 以 供 将 来 使 用 。 因 为 函数 的 结果 缓存 依 赖 于 STUDENT 表 ， 所 以 对 STUDENT 表 实 施 并 提交 的 任何 修改 都 会 使 get student _rec 国 数 
的 所 有 缓存 结果 变 得 无 效 。 


PL/SQL 独 有 的 更 多 数据 类 型 可 以 跨越 PL/SQL 到 SQL 的 接口 子 句 


在 此 版 本 中 ，Oracle 已 经 在 动态 SQL 和 客户 端 程序 (OCI 或 者 JDBC) 中 扩展 了 对 PL/SQL 独 有 的 数据 类 型 的 支持 。 例 如 ， 可 以 在 使 用 EXECUTE 
IMMEDIATE 语 句 或 OPEN FOR、FETCH 和 CLOSE 语句 时 绑 定 集合 变量 。18.3 节 对 本 主题 进行 了 更 详细 的 介绍 。 


ACCESSIBLE BY 子 句 


可 选 的 ACCESSIBLE BY 子 句 允许 指定 可 访问 正在 创建 或 修改 的 PL/SQL 单 元 的 PL/SQL 单 元 列表 。ACCESSIBLE BY 子 句 通常 被 加 入 到 模块 头 部 ， 例 
如 ， 上 函数 或 过 程 头 部 。 在 ACCESSIBLE BY 子 句 中 列 出 的 每 个 单元 都 称 为 访问 器 ， 而 该 子 句 本 身 也 称 为 白 名 单 ， 如 以 下 例子 所 示 (ACCESSIBLE BY 子 句 以 
粗 体 显示 ) 。 


示例 “使 用 ACCESSIBLE BY 子 句 创建 的 存储 过 程 


CREATE OR REPLACE PROCEDURE test procl 
ACCESSIBLE BY (TEST РКОС2) 
AS 
BEGIN 
DBMS OUTPUT.PUT LINE ('ТЕЅТ РКОС1!); 


END test proci; 
/ 


CREATE OR REPLACE PROCEDURE test proc2 
AS 
BEGIN 
DBMS OUTPUT.PUT LINE ('TEST_PROC2'); 
севс ргосі; 
END test ргос2; 


/ 
-- 执行 TEST_PROC2 
BEGIN 

test ргос2; 
END; 
/ 


TEST_PROC2 
TEST_PROC1 


-- 直接 执行 TEST РКОС1 
BEGIN 
cest proci; 
END; 
/ 


ОВА- 06550: line 2, column 4: 
Р15-00904: insufficient privilege to access object TEST PROC1 


ОВА-06550: line 2, column 4: 
PL/SQL: Statement ignored 


在 此 示例 中 ， 有 两 个 过 程 ，test proc1 和 test ргос2, #Нїеѕї proc1 是 使 用 ACCESSIBLE BY 子 句 创建 的 。 其 结果 是 ，test proc1 只 能 由 test ргос2 
访问 。 这 由 两 个 匿名 PLM/SQL 块 体现 。 第 一 个 块 执行 test_proc2 成 功 。 第 二 个 块 试图 直接 执行 test_proc1， 但 其 结果 出 错 。 


请 注意 ， 这 两 个 过 程 都 是 在 单个 模式 (STUDENT) 中 创建 的 ， 并 且 这 两 个 PL/SQL 块 都 是 在 所 有 者 (STUDENT) 的 单个 会 话 中 执行 的 。 
FETCH FIRST 子 句 


FETCH FIRST 子 句 是 一 个 新 的 可 选 特性 ， 它 通常 用 在 “前 N 个 ”查询 中 ， 如 以 下 例子 所 示 。 本 例 使 用 的 ENROLLMENT (登记 ) 表 包 含 学 生 注册 数 
据 。 每 名 学 生 都 是 通过 一 个 唯一 的 学 生 1D 标 识 的 ， 并 可 注册 多 个 课程 。FETCH FIRST 子 句 以 粗 体 显示 。 


示例 ”使 用 FETCH FIRST 子 句 进行 “前 N 个 ”查询 
-- 来 自 ENROLLMENT 表 的 学 生 ID 样本 


SELECT student іа 
FROM enrollment; 


STUDENT ID 


Оз 
104 
БО» 
106 
106 
107 
108 
109 
109 
110 
EIO 


--“ 前 N 个 ”查询 返回 注册 课程 最 多 的 前 5 名 学 生 的 学 生 ID 
-- courses 
SELECT student id, COUNT (*) courses 
FROM enrollment 
GROUP BY student id 
ORDER BY courses desc 


FETCH FIRST 5 ROWS ONLY; 


STUDENT ID COURSES 


请 注意 FETCH FIRST 子 句 也 可 与 BULK COLLECT INTO 子 句 结合 使 用 ， 如 下 所 示 。FETCH FIRST 子 句 以 粗 体 显示 。 


示例 将 FETCH FIRST 子 句 与 BULK COLLECT INTO 子 句 结 合 使 用 


DECLARE 
TYPE student пате tab IS TABLE ОЕ VARCHAR2 (100) INDEX BY PLS INTEGER; 


student_names student_name_tab; 
GEHEN 


-- Kik ЖТ 20 名 学 生 

SELECT first папе | |' '||last name 
BULK COLLECT INTO student names 
FROM student 

FETCH FIRST 20 ROWS ONLY; 


DBMS OUTPUT.PUT LINE ('There are '||student names .COUNT||' students'); 
END; 
/ 


There are 20 students 


可 将 角色 授予 PL/SQL 程 序 包 和 独立 子 程序 


从 Oracle 12c 开 始 ， 可 以 将 角色 授予 PL/SQL 包 和 独立 子 程序 。 需 要 注意 的 是 ， 将 一 个 角色 授予 PL/SQL 包 或 独立 子 程序 不 改变 其 编译 。 相 反 ， 它 会 影 
响 由 PL/SQL 单 元 在 运行 时 发 出 的 SQL 语 句 所 需 权限 的 检查 方式 。 


考虑 以 下 例子 ， 其 中 READ 角 色 被 授予 get_student_name 函 数 。 
示例 ”将 READ 角 色 授 予 get student name 为 数 


GRANT READ TO FUNCTION get student пате; 


更 多 的 数据 类 型 在 SQL 和 PL/SQL 中 具有 相同 的 最 大 大 小 


在 Oracle 12c 之 前 ， 某 些 数据 类 型 在 SQL 和 PL/SQL 中 有 不 同 的 最 大 大 小 。 例 如 ，NVARCHAR2 在 SQL 中 的 最 大 大 小 是 4000 字 节 ， 而 在 PL/SQL 中 是 
32767 字 节 。 从 Oracle 12c 开 始 ，VARCHAR2、NVARCHAR2 和 RAW 数据 类 型 在 SQL 和 PLSQL 中 的 最 大 大 小 都 已 经 扩展 到 了 32767 字 节 。 要 在 SQL 中 使 
用 这 些 最 大 大 小 ， 初 始 化 参数 MAX STRING SIZE 必须 设置 为 EXTENDED。 


可 揪 拔 数据 库 上 的 数据 库 触 友 器 


可 插 拔 数据 库 (РОВ) 是 Oracle 的 多 租户 架构 的 组 成 部 分 之 一 。 通 常 它 是 可 移植 的 模式 和 其 他 数据 库 对 象 的 一 个 集合 。 从 Oracle 12c 开 始 ， 可 以 在 
PDB 上 创建 事件 触发 器 。 触 发 器 的 详细 信息 是 在 第 13 章 和 第 14 章 提供 的 ， 请 注意 ，PDB 是 在 本 书 范围 之 外 的 ， 但 它们 的 详细 信息 可 在 Oracle 的 联机 
《Administration Guide) (管理 指南 ) 中 找到 。 


LIBRARY 可 定义 为 DIRECTORY 对 象 ， 并 可 带 有 CREDENTIAL 子 句 


LIBRARY ( 库 ) 是 与 操作 系统 的 共享 库 相 关联 的 模式 对 象 。 它 是 在 CREATE OR REPLACE LIBRARY 语 句 的 帮助 下 创建 的 。 


DIRECTORY (目录 ) 也 是 将 一 个 别名 映射 到 服务 器 文件 系统 的 实际 目录 上 的 对 象 。 第 25 章 很 简要 地 提 及 了 DIRECTORY 对 象 ， 这 是 作为 PL/SQL 齐 析 
器 API 和 PL/SQL 层 次 式 剖 析 器 安装 过 程 的 一 部 分 介绍 的 。 在 Oracle 12c 版 本 中 ，LIBRARY 对 象 可 以 定义 为 一 个 珊 有 可 选 CREDENTIAL 子 句 的 DIRECTORY 
对 象 ， 如 下 所 示 。 


示例 把 LIBRARY 创 建 为 DIRECTORY 对 象 


CREATE OR REPLACE LIBRARY my lib AS 'plsql code' IN my dir; 


在 本 例 中 ，LIBRARY 对 象 my lib 被 创建 为 DIRECTORY 对 象 。'plsql code' 是 DIRECTORY 对 象 my dir 中 的 动态 链接 库 (DDL) 的 名 称 。 请 注意 ， 要 成 
功 地 创建 这 个 库 ， 必 须 预先 创建 DIRECTORY 对 象 my dir。LIBRARY 和 DIRECTORY 对 象 的 详细 信息 可 以 在 Oracle 的 联机 《Database PL/SQL Language 
Reference) (数据 库 PL/SQL 语 言 参 考 ) 中 找到 。 


隐 式 语句 结果 


{Oracle 12c 版 本 之 前 ，SQL 查 询 的 结果 集 是 通过 REF CURSOR 输 出 参数 从 存储 的 PL/SQL 子 程序 明确 地 返回 的 。 其 结果 是 ， 调 用 者 程序 必须 绑 定 到 
REF CURSOR 人 参数 并 明确 地 提取 结果 集 。 


从 此 版 本 开始 ，REF CURSOR 输 出 参数 可 以 由 DBMS SQL 包 的 两 个 过 程 ，RETURN _RESULT 和 GET _NEXT RESULTI'] 来 代替 。 这 些 过 程 使 能 存储 的 
PL/SQL 子 程序 隐 式 地 返回 SQL 查询 的 结果 集 ， 如 下 例 所 示 (对 RETURN RESULT 过 程 的 引用 以 粗 体 突出 显示 ) : 


示例 “使 用 DBMS SQL.RETURN_RESULT 过 程 


CREATE OR REPLACE PROCEDURE test_return result 


AS 
v cur SYS REFCURSOR; 
BEGIN 
OPEN v cur 
FOR 


SELECT first_name, last пате 
FROM instructor 
FETCH FIRST ROW ONLY; 


DBMS SQL.RETURN RESULT (v cur); 
END test _ return result; 


/ 


BEGIN 

cest return result 
END; 
/ 


在 本 例 中 ，test return_result 过 程 将 教师 的 名 字 和 姓氏 隐 式 地 返回 客户 端 应 用 程序 。 需 要 注意 的 是 ， 游 标 SELECT 语 名 使 用 了 FETCH FIRST ROW 
ONLY 子 句 ， 这 也 是 在 Oracle 12c 中 引入 的 。 要 成 功 地 从 test return_result 过 程 获得 结果 集 ， 客 户 端 应 用 程序 必须 同样 升级 到 Oracle 12c。 否 则 ， 它 将 
返回 以 下 错误 消息 : 

ОКА-29481: Implicit results cannot be returned to client. 
ORA-06512; аё "TSIS: DBMS 501", line 2785 
ORA- 06512: ar "5Ү5.рВвМ5 501", line 2779 


ОРА- 06512: аі "STUDENT .TEST REIURN RESULT", line 10 
ORA-06512: at line 2 


BEQUEATH CURRENT _USER 视 图 


在 Oracle 12c 中 ， 视 图 只 可 以 创建 为 定义 者 权限 单元 。 从 12c 版 本 开始 ， 视 图 也 可 以 创建 为 一 个 调用 者 权限 单元 (这 类 似 于 存储 子 程序 的 AUTHID 属 
№) 。 但 是 ， 对 于 视图 ， 这 种 行为 是 通过 在 创建 它 的 时 候 指定 BEQUEATH DEFINER (默认 值 ) 或 BEQUEATH CURRENT_USER 子 句 达成 的 ， 如 以 下 例 
子 所 示 (BEQUEATH CURRENT_USER 子 句 以 粗 体 显示 ) : 


示例 ”使 用 BEQUEATH CURRENT USER 子 句 创建 视图 


CREATE OR REPLACE VIEW my view 
BEQUEATH CURRENT USER 
AS 


SELECT table name, status, partitioned 
FROM user tables; 


在 本 例 中 ，my _view 创 建 为 |R 单 元 。 请 注意 ， 将 这 个 属性 添加 到 视图 中 并 不 影响 它 的 主要 有 用途。 相反 ， 类 似 于 AUTHID 属 性 ， 它 确定 从 该 视图 选择 数 
据 的 时 候 将 应 用 哪 组 权限 。 


INHERIT PRIVILEGES (继承 特权 ) 和 INHERIT ANY PRIVILEGES (继承 任何 特权 ) 特权 


从 Oracle 12c 开 始 ， 只 有 当 革 个 调用 者 权限 单元 的 所 有 者 具有 INHERIT PRIVILEGES 或 INHERIT ANY PRIVILEGES 特 权时 ， 该 单元 才 会 以 调用 者 的 
权限 执行 。 例 如 ， 在 Oracle 12c 之 前 ， 假 设 user1 把 一 个 冰 数 F1 创 建 为 一 个 调用 者 权限 单元 ， 并 把 对 它 执行 的 权限 授予 正好 有 比 user1 更 多 特权 的 用 户 
User2。 然 后 ， 当 user2 运 行 F1 函 数 时 ， 该 函数 将 以 user2 的 权限 运行 ， 这 可 能 会 执行 user1 也 许 没 有 权限 执行 的 操作 。 在 Oracle 12c 中 ， 情 况 已 不 再 是 这 
样 。 如 前 所 述 ， 这 样 的 行为 必须 明确 地 通过 INHERIT PRIVILEGES 或 INHERIT ANY PRIVILEGES 特 权 来 指定 。 


不 可 见 列 


从 Oracle 12c 开 始 ， 可 以 定义 和 操作 不 可 见 列 。 在 PL/SQL 中 ， 定 义 为 %ROWTYPE 的 记录 能 意识 到 这 样 的 列 ， 如 以 下 例子 所 示 (对 不 可 见 列 的 引用 
以 粗 体 显示 ) : 


示例 %ROWTYPE 记 录 和 不 可 见 列 


-- 使 NUMERIC _GRRDE 列 不 可 见 

ALTER TABLE grade MODIFY (numeric _ grade INVISIBLE) ; 
/ 

table GRADE altered 


DECLARE 
v_grade_rec grade%šROWTYPE; 
BEGIN 
SELECT * 
INTO v grade гес 
FROM grade 
FETCH FIRST ROW ONLY; 


DBMS OUTPUT.PUT LINE ('student ID: '||v_ grade rec.student id); 

DBMS OUTPUT.PUT LINE ('section ID: '||v grade rec.section id); 

-- 引用 不 可 见 列 将 导致 出 错 

DBMS OUTPUT .PUT LINE ('grade: '||v grade rec.numeric grade); 
END; 


/ 

ORA-06550: line 12, column 54: 

PLS-00302: component 'NUMERIC GRADE' must be declared 
ORA-06550: line 12, column 4: 

PL/SQL: Statement ignored 


-- {Ë NUMERIC GRADE Ў! 5] 4L 
ALTER TABLE grade MODIFY (numeric grade VISIBLE); 
/ 


table GRADE altered 


DECLARE 
v _ grade гес grade%ROWTYPE; 
BEGIN 
SELECT * 
INTO v grade rec 
FROM grade 


FETCH FIRST ROW ONLY; 


DBMS OUTPUT .PUT LINE ('student ID: '||у grade rec.student id); 
DBMS OUTPUT.PUT LINE ('section ID: '||у grade rec.section іа); 
-- 这 一 次 脚本 执行 成 功 
DBMS OUTPUT.PUT LINE ('grade: ' | |v grade rec.numeric grade); 
END ; 
/ 


student Ір: 123 
section Ір: 87 
grade: 99 


正如 这 个 例子 所 展示 的 ， 由 于 引用 了 不 可 见 列 ， 匿 名 PL/SQL 块 的 第 一 次 运行 未 能 完成 。 一 旦 再 次 把 NUMERIC GRADE 列 设置 为 可 见 ， 脚 本 就 能 够 
成 功 完 成 。 


对 象 ， 而 不 是 类 型 ， 是 有 版 次 或 无 版 次 的 


版 本 是 基于 版 本 的 重 定 义 功能 的 一 个 组 成 部 分 ， 这 种 功能 允许 你 创建 对 象 的 一 个 副本 (例如 ，PL/SQL 包 ) ， 并 对 它 进行 更 改 ， 而 不 影响 可 能 依赖 于 
它 的 其 他 对 象 或 使 乙 无 效 。 随 着 此 功能 的 引入 ， 在 数据 库 中 创建 的 对 象 可 以 定义 为 有 版 次 或 无 版 次 的 。 对 于 有 版 次 的 对 象 ， 其 对 象 类 型 必须 是 有 版 次 
的 ， 它 必须 有 EDITIONABLE 属 性 。 同 样 ， 对 于 无 版 次 的 对 象 ， 其 对 象 类 型 必须 是 无 版 次 的 或 者 它 必 须 有 NONEDITIONABLE 属 性 。 


从 Oracle 12c 开 始 ， 你 能 够 在 CREATE OR REPLACE 和 ALTER 语 句 中 指定 某 个 模式 对 象 是 有 版 次 的 或 无 版 次 的 。 在 这 个 新 版 本 中 ， 已 启用 版 次 的 用 
P (模式 ) ， 即 使 它 在 数据 库 中 的 类 型 是 有 版 次 的 ， 但 只 要 在 模式 本 身 中 的 类 型 是 无 版 次 的 或 如 果 此 对 象 具 有 NONEDITIONABLE 属 性 ， 它 就 能 够 拥有 
一 个 无 版 次 对 象 。 


在 SQL 中 运行 得 更 快 的 PLUSQL 函 数 
从 Oracle 12c 开 始 ， 可 以 在 SQL 语句 中 创建 调用 时 可 能 运行 得 更 快 的 用 户 定义 的 国 数 。 这 可 以 用 如 下 方法 完成 : 
-在 SELECT 语句 的 WITH 子 多 中 声明 用 户 定 义 的 函数 。 
使 用 UDF 编 译 指示 创建 用 户 定义 的 函数 。 
考虑 下 面 的 示例 ， 其 中 的 format_name 国 数 是 在 SELECT 语句 的 WITH 子 句 中 创建 的 。 这 个 新 创建 的 函数 返回 格式 化 的 学 生 姓名 。 
示例 在 WITH 子 句 中 创建 一 个 用 户 定义 的 函数 


WITH 
FUNCTION format name (р salutation ІМ VARCHAR2 
‚р first name ІМ VARCHAR2 
‚р last name IN VARCHAR2) 


RETURN VARCHAR2 
IS 
BEGIN 
IF p salutation IS NULL 
THEN 
RETURN p first name||' '||p last name; 
ELSE 
RETURN p salutation||' '||p first name||' '||p last name; 
END IF; 
END; 
SELECT format пате (salutation, first_name, last_name) student name 
FROM student 
FETCH FIRST 10 ROWS ONLY; 


STUDENT NAME 

Mr. George Kocka 
Ms. Janet Jung 

Ms. Kathleen Mulroy 
Mr. Joel Brendler 
Mr. Michael Carcia 
Mr. Gerry Tripp 

Mr. Rommel Frost 
Mr. Roger Snow 

Ms. Z.A. Scrittorale 
Mr. Joseph Yourish 


接 下 来 ， 考 虑 用 UDF 编 译 指示 创建 format_ патер #Н%55——1°лЙЇ„ 


示例 ”在 UDF 编 译 指 示 中 创建 一 个 用 户 定 义 的 浮 数 


CREATE OR REPLACE FUNCTION format пате (р salutation IN VARCHAR2 
,p_first_name ІМ VARCHAR2 


,p last name IN VARCHAR2) 
RETURN VARCHAR2 ш ШЕ 


А5 
PRAGMA UDF; 
BEGIN 
IF p salutation IS NULL 
THEN 
RETURN р first_name||' '||p last name; 
ELSE 
RETURN р salutation||' '||p first name||' '||p last name; 
END ТЕ; 
END; 
/ 
SELECT format name (salutation, first name, last name) student name 
FROM student 
FETCH FIRST 10 ROWS ONLY; 


STUDENT NAME 


Mr. George Kocka 
Ms. Janet Jung 

Ms. Kathleen Mulroy 
Mr. Joel Brendler 


Mr. Michael Carcia 
Mr. Gerry Tripp 

Mr. Rommel Frost 

Mr. Roger Snow 

Ms. Z.A. Scrittorale 


预定 义 的 查询 指令 $$PLSQL UNIT OWNER 和 $$PLSQL_ UNIT ТҮРЕ 


在 PL/SQL 中 ， 有 大 量 预定 义 的 查询 指令 ， 如 下 表 所 述 (为 了 强调 ，$$PLSQL UNIT OWNER 和 $$PLSQL UNIT_TYPE 以 粗 体 显示 ) : 


名 ж 说 有明 
$$PLSQL LINE 它 是 出 现在 PL/SQL 子 程 序 中 的 代码 行 的 编号 
$$PLSQL UNIT PL/SQL 子 程 序 的 名 称 。 对 于 匿名 PL/SQL H, CREN NULL 


12c 版 本 中 新 增 的 指令 。 它 是 PL/SQL 子 程序 的 所 有 者 (模式 )。 对 于 
匿名 PL/SQL 块 ， 它 设置 为 NULL 

12c 版 本 中 新 增 的 指令 。 它 是 PL/SQL 子 程序 的 类 型 一 一 例如 ， 
FUNCTION, PROCEDURE 或 PACKAGE BODY 


$$PLSQL UNIT OWNER 


$$PLSQL UNIT TYPE 


一 组 PL/SQL 编译 参数 ， 其 中 有 些 是 PLSQL_CODE_TYPE， 它 指定 
$$plsql_compilation_parameter |PL/SQL 了 于 程序 的 编译 模式 。 而 男 外 一 些 是 PLSQL_OPTIMIZE_LEVEL 
(将 在 第 25 章 探 讨 ) 
下 面 的 示例 演示 了 指令 的 可 能 用 法 。 


示例 ”使 用 预定 义 的 查询 指令 


CREATE OR REPLACE PROCEDURE test directives 


AS 

BEGIN 
DBMS OUTPUT .PUT LINE ('Procedure test directives'); 
DBMS OUTPUT .PUT LINE ('$$PLSQL UNIT OWNER: '||$$PLSQL UNIT OWNER) ; 
DBMS OUTPUT .PUT LINE ('$$PLSQL UNIT TYPE: '||$$PLSQL UNIT ТҮРЕ); 
DBMS OUTPUT .PUT LINE ('$$Р1Ь501, UNIT: ' | | $$PLSQL UNIT); 
DBMS OUTPUT .PUT LINE ('$$PLSQL LINE: ' | | $$PLSQL LINE) ; 

END; 

/ 

BEGIN 


-- 执 行 TEST DERECTIVES 过 程 
test directives; 
DBMS OUTPUT.PUT LINE ('Anonymous PL/SQL block'); 


DBMS _ OUTPUT .PUT LINE ('$$PLSQL UNIT _ OWNER: '||$$PLSQL UNIT OWNER) ; 
DBMS OUTPUT .PUT LINE ('$$PLSQL UNIT ТҮРЕ: '||$$PLSQL UNIT ТҮРЕ); 
DBMS OUTPUT .PUT LINE ('$$PLSQL UNIT: '||$$PLSQL UNIT) ; 
DBMS OUTPUT.PUT LINE ('$$PLSQL LINE: ' | |$$PLSQL LINE) ; 

END; 


/ 


Procedure test directives 

ŞŞPLSQL UNIT OWNER: STUDENT 
$$PLSQL UNIT ТҮРЕ: PROCEDURE 
ŞŞPLSQL UNIT: TEST DIRECTIVES 


ŞŞPLSQL LINE - 8 

Anonymous PL/SQL block 
$SPLSQOL UNIT OWNER: 

$$PLSQL UNIT TYPE: ANONYMOUS BLOCK 
$$PLSQL UNIT: 

$$PLSQL LINE : 8 


编译 参数 PLSQL DEBUG 已 弃 用 


从 Oracle 12c 版 本 开始 ，PLSQL_DEBUG 参 数 已 弃 用 。 若 要 为 了 调试 而 编译 PL/SQL 子 程序 ，PLSQL _OPTIMIZE_LEVEL 参 数 应 设置 为 1。 第 25 章 非常 
详细 地 讨论 了 PLSQL_OPTIMIZE_LEVEL 参 数 和 PL/SQL 性 能 优化 器 支持 的 各 种 优化 级 别 。 


[1 原文 缺少 第 2 个 下 划 线 ， 参 见 Otacle 文 档 。 
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第 1 草 PL/SQL 概 念 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
PL/SQL 架 构 

- PL/SQL 开 发 环境 
.PL/SQL 基础 知识 


PL/SQL 表 示 “ 对 SQL 的 过 程 语言 扩展 ”。 由 于 PL/SQL 与 SQL 紧 密集 成 ， 因 此 它 支 持 绝 大 多 数 的 SQL 功 能 ， 如 SQL 数 据 操作 、 数 据 类 型 、 运 算 符 、 阔 
数 和 事务 控制 语句 。 作 为 对 SQL 的 扩展 ，PL/SQL 把 SQL 与 任何 高 级 语言 提供 的 编程 结构 和 子 程序 相 结 合 。 


PL/SQL 同 时 用 于 服务 器 端 和 客户 端 二 者 的 开发 。 例 如 ， 可 以 使 用 PL/SQL 在 服务 器 端 编写 数据 库 触发 器 (附加 到 表 的 代码 ， 在 第 13 章 和 第 14 章 中 讨 
论 ) ， 也 可 以 在 客户 端 编写 Oracle Form 后 面 的 逻辑 。 此 外 ， 配 合 各 种 Oracle 开 发 工具 使 用 时 ，PL/SQL 还 可 以 在 常规 和 云 环 境 中 开发 网 络 和 移动 应 用 。 


1.1 实验 1: PL/SQL 架 构 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 描述 PL/SQL 架 构 。 

. 讨论 PL/SQIL 块 结构 。 

"了解 PL/SQL 如 何 执行 。 


许多 Oracle 应 用 程序 都 是 使 用 多 个 层 构 建 的 ， 这 也 被 称 为 N 层 结构 ， 其 中 每 一 层 都 代表 一 个 单独 的 逻辑 流程 。 例 如 ， 一 个 三 层 体系 结构 将 包括 三 个 层 
: 数据 管理 层 、 应 用 处 理 层 和 表示 层 。 在 这 个 染 构 中 ，Oracle 数 据 库 驻 留 在 数据 管理 层 ， 而 针对 该 数据 库 发 出 请 求 的 程序 驻 留 在 表示 层 或 应 用 处 理 
。 这 种 程序 可 以 用 许多 编程 语言 ， 包 括 PL/SQL 来 编写 。 一 个 三 层 结 构 的 示例 如 图 1-1 所 示 。 


`Í 


NI 


表示 层 


这 是 实现 用 户 和 应 用 交互 Же 


用 户 进一步 处 理 的 请 求 ， 并 将 其 发 送 给 应 | эш чер 
用 处 理 层 购买 《Oracle PLMSQL 实 例 精 解 》: 
试 加 购买 的 物品 刘 购 物 桔 ， 处 理 
ЕЕ 
онна | 
— ЛКНН ЕПН) Н РВ. арузи 
Чол 此 外 ， 它 还 评估 业务 验证 用 户 请 求 : | 
则 、 re ы ы тл ЫШАРА пря р 
查询 
АЕ 
数据 管理 层 
这 一 层 实质 上 是 数据 库 服务 器 。 根 据 从 应 用 | 
处 理 层 接收 到 的 请 求 ， 数 据 彼 存储 到 数据 库 иелш 
服务 дени у 从 中 提取 ДЕЙ ЈА А 用 处 理 层 


接收 到 的 查询 


1.2 22192: PL/SQL 开 发 环境 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
‚ 初步 掌握 SQL Developet 的 用 法 。 
` 初步 掌握 3QL*Plus 的 用 法 。 


. 执行 PL/SQL 脚 本 。 


SQL Developer 和 SQL*Plus 是 两 种 Oracle 提 供 的 工具 ， 你 可 以 用 它们 来 开发 和 运行 PL/SQL 脚 本 。SQL*Plus 是 一 个 旧式 的 命令 行 实用 程序 工具 ,， 它 
从 起 步 阶 段 开 始 就 一 直 是 Oracle 平 台 的 一 部 分 。 它 包括 在 每 个 平台 上 的 Oracle 安 装 中 。SQL Developer 是 用 于 数据 库 开 发 和 管理 的 一 个 免费 图 形 工具 。 
这 是 Oracle 工 具 集 中 一 个 相当 新 的 补充 ， 并 且 既 可 以 作为 Oracle 安 装 的 一 部 分 ， 也 可 以 通过 从 Oracle 的 网 站 下 载 来 获得 。 


由 于 具有 图 形 界面 ，SQL Developer 的 环境 比 SQL*Plus 更 容易 使 用 。 它 允许 你 浏 昂 数 据 库 对 象 、 运 行 SQL 语 句 并 创建 、 调 试 和 运行 PL/SQL 语 句 。 此 
外 ， 它 支持 语法 突出 显示 和 格式 模板 ， 当 你 正在 开 友 和 调试 复杂 的 PL/SQL 模 块 时 ， 这 些 都 变 得 非常 有 用 。 


\ 一 /一 


尽管 SQL*Plus 和 SQL Developer 是 两 种 差别 很 大 的 工具 ， 但 其 基本 功能 以 及 它们 与 数据 库 的 交互 却 是 非常 相似 的 。 它 们 在 运行 时 ， 都 把 QL 和 
PL/SQL 语 句 友 送 到 数据 库 。 一 旦 这 些 语句 被 处 理 完成 ， 结 果 束 会 从 数据 库 被 友 回 ， 并 在 屏幕 上 显示 出 来 。 


本 草 中 所 使 用 的 示例 都 同时 在 这 两 个 工具 中 执行 ， 这 是 为 了 在 适当 的 时 候 说 明 一 些 界面 上 的 区 别 。 需 要 注意 的 是 ， 本 书 的 主要 重点 是 学 习 PL/SQL,， 
因此 ， 对 这 些 工具 的 探讨 只 限于 运行 本 书 提供 的 PL/SQL 示 例 所 需 的 程度 。 


1.3 20153: PL/SQL 基 础 知识 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
使 用 DBMS_OUTPUT.PUT_LINEB 语 句 。 
` 使 用 替代 变量 功能 。 
我 们 前 面 指 出 ，PL/SQL 不 是 一 门 独立 的 编程 语言 ， 相 反 ， 它 只 是 作为 Oracle 环 境 中 的 工具 存在 。 因 此 ， 它 并 不 真正 具有 任何 接受 来 自用 户 的 输入 的 
功能 。 接 受用 户 的 输入 是 通过 SQL Developer 和 SQL*Plus 工 具 中 被 称 为 替代 变量 的 特殊 功能 实现 的 。 
同样 ， 把 PL/SQL 块 执行 之 后 的 一 些 相关 信息 提供 给 用 户 常 常 是 有 帮助 的 ， 这 是 借助 DBBMS OUTPUT.PUT _LINE 语 句 来 实现 的 。 请 注意 ， 与 替代 变量 
不 同 ， 这 个 语句 是 PL/SQL 语 言 的 一 部 分 。 
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ГЕЛ ни 


在 本 章 ， 我 们 了 解 了 PL/SQL 架 构 以 及 如 何在 多 层 环 境 中 使 用 它 。 我 们 还 了 解 了 PL/SQL 如 何 通 过 蔡 代 变量 和 DBMS_OUTPUT.PUT_LINE 语 句 与 用 户 
进行 交互 。 最 后 ,我 们 了 解 了 两 种 PL/SQL 开 发 工具 ，SQL Developer 和 SQL*Plus。 本 章 中 显示 的 示例 都 同时 用 这 两 种 工具 来 执行 ， 以 便 说 明 它 们 之 间 的 
差异 。 两 者 之 间 的 主要 区 别 在 于 ，SQL Developer 具 有 图 形 用 户 界面 ， 而 SQL*Plus 具 有 命令 行 界面 。 在 本 书 中 所 用 的 PL/SQL 实 例 都 可 以 用 上 述 工具 中 的 
任何 一 种 来 执行 ， 结 果 是 相同 的 。 根 据 你 的 喜好 ， 你 也 可 以 选择 使 用 一 个 工具 ， 而 不 用 另 一 个 。 然 而 ， 最 好 同时 熟悉 这 两 种 工具 ， 因 为 几乎 每 个 Oracle 
数据 库 安装 都 包含 这 些 工 具 。 


ЛИ тле 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 2 章 ”PL/SQL 语 言 基础 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- PL/SQL 编 程 基 础 


在 “Oracle Dc PL/SQL 新 特性 简介 ”和 第 1 草 ， 你 学 习 了 机 器 语言 和 编程 语言 之 间 的 区 别 。 此 外 ， 你 还 学 习 了 PL/SQL 和 SQL 的 区 别 以 及 PL/SQL 基 本 
块 结构 的 工作 原理 。 与 学 习 一 门 外 语 的 历史 及 其 使 用 的 上 下 文 类 似 ， 若 要 使 用 PL/SQL 语 言 ， 你 必须 学 会 关键 字 ， 包 括 它们 的 含义 和 它们 的 使 用 场合 及 使 
用 方法 。 首 先 ， 你 将 学 习 不 同类 型 的 关键 字 。 然 后 ， 你 将 学 习 它 们 的 完整 语法 。 最 后 ， 在 本 章 中 ， 你 将 通过 探索 作用 域 和 内 套 块 来 扩展 简单 的 块 结构 。 


2.1 实验 : PL/SQL 编 程 基 础 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 描述 PL/SQL 语 言 组 件 。 

- 解释 PL/SQL 变 量 的 用 法 。 

-确定 PLVSQL 保 留 字 。 


- 解释 PL/SQL 中 标识 符 的 用 法 。 


` 讨论 块 的 作用 域 、 谱 套 块 和 标签 。 


在 大 多 数 语言 中 ， 都 只 有 两 组 字符 : 数字 和 字母 。 某 些 语言 (ДАЖЕ) 有 不 与 辅音 放 在 一 行 的 特定 元 音字 符 。 其 他 语言 (如 日 语 ) 有 三 
种 字符 集 : 第 一 种 是 最 初 取 自 汉语 的 词 ， 第 二 种 是 原生 日 语词 ， 第 三 种 是 其 他 外 来 词 。 学 习 任 何 一 门 外 语 ， 你 都 必须 从 学 习 这 些 字符 集 开 始 ， 然 后 进 一 
步 学 习 如 何 根 据 这 些 字符 集 来 组 词 。 最 后 ， 学 习 词 类 ， 并 且 可 以 开始 使 用 这 种 语言 。 


你 可 以 把 PL/SQL 视 为 一 种 更 复杂 的 语言 ， 因 为 它 有 许多 字符 类 型 ， 此 外 ， 许 多 类 型 的 词 或 词汇 单位 都 由 这 些 字符 集 形成 。 一 旦 你 学 会 了 这 些 构件 ， 
就 可 以 进一步 学 习 PL/SQL 语 言 的 结构 了 。 
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在 本 章 ， 我 们 学 习 了 PL/SQL 语 言 的 基础 知识 。2.1.1 节 介绍 了 PL/SQL 语 言 中 的 基本 组 件 ， 它 们 可 以 用 来 构建 简单 的 PUSQL 代 码 。 然 后 我 们 学 习 了 变 
量 ， 它 们 可 以 用 来 存储 每 次 运行 程序 时 可 能 会 更 改 的 值 。 我 们 还 学 习 了 PL/SQL 关 键 字 ， 这 些 术语 具有 特定 的 合 义 ， 并 且 不 能 用 作 变 量 名 称 。 本 章 还 探讨 
了 标识 符 和 挂靠 的 数据 类 别 ， 帮 助 你 了 解 如 何 使 用 数据 类 型 值 。 本 章 末 尾 解释 了 基本 的 PLUSQL 块 ， 以 及 如 何 通过 谍 套 块 和 利用 标 等 来 组 织 代码 。 

ЇЇ Л 


配套 网 站 (informit.com/title/0133796787) 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 


在 本 章 获 得 的 一 切 技能 来 测试 你 的 理解 程度 。 


第 3 章 ”在 PL/SQL 中 的 SQL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. 在 PL/SQL 中 的 DML 语 和 句 
‚ 在 PL/SQL 中 的 事务 控制 


本 章 是 在 PL/SQL 块 中 使 用 SQL 语 句 的 一 些 基 本 要 素 的 集合 。 在 第 1 章 和 第 2 章 ， 我 们 使 用 “:=” 语 法 初始 化 变量 ， 在 本 章 中 ， 我 们 将 介绍 使 用 SQL 
SELECT 语 句 来 更 新 变量 值 的 方法 。 这 些 变 量 随后 可 以 在 DML 语 句 (插入 、 删 除 或 更 新 ) 中 使 用 。 此 外 ， 我 们 将 演示 如 何在 PL/SQL 块 内 的 DML 语 句 中 像 
在 一 个 单独 的 SQL 语 句 中 那样 使 用 序列 。 


在 Oracle 中 ， 事 务 是 由 程序 员 组 合成 一 个 逻辑 单元 的 一 系列 SQL 语句 。 程 序 员 选 择 这 样 做 是 为 了 维护 数据 的 完整 性 。 每 个 应 用 程序 (SQL*Plus、 


SQL Developer 和 各 种 第 三 方 PHSQL 工 具 ) 都 为 用 户 登 录 的 每 个 实例 维护 一 个 数据 库 会 话 。 已 经 由 单个 应 用 程序 会 话 对 数据 库 执行 的 修改 ， 在 提交 之 前 
实际 上 并 没有 “保存 ”到 数据 库 中 。 事 务 内 的 工作 在 提交 之 前 可 以 回 滚 , 但 是 ,一 旦 提交 已 友 出 ， 事 务 内 的 工作 就 无 法 回 滚 了。 请 注意 ， 这 些 SQL 语 句 应 
作为 一 个 整体 被 提交 或 拒绝 。 


要 上 友 挥 事务 控制 ， 可 以 用 一 个 SAVEPOINT 语 句 把 大 的 PLUSQL 语 句 分 解 为 更 易于 管理 的 各 个 单元 。 在 本 章 中， 我 们 将 讨论 事务 控制 的 基本 要 素 ， 所 
以 你 会 知道 如 何 利用 COMMIT、ROLLBACK 和 (主要) SAVEPOINT 语 句 来 管理 你 的 PL/SQL 代 码 。 


3.1 实验 1: 在 PL/SQL 中 的 DML 语 句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
· 使 用 SELECT INTO 初 始 化 变量 。 
- 使 用 变量 初始 化 的 SELECT INTO 语 法 。 
-在 PL/SQL 块 中 使 用 DML。 


. 在 PL/SQL 块 中 利用 序列 。 


3.2 ”实验 2: 在 PL/SQL 中 的 事务 控制 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 使 用 COMMIT、ROLLBACKE 和 SAVEPOINT 语 名 。 


将 DML 和 事务 控制 相 结合 。 


3.3 КАЙЫ 


ле 


在 本 章 ， 我 们 学 会 了 如 何 使 用 变量 和 米 取 各 种 方式 来 填充 变量 。 插 入 语句 的 示例 演示 了 如 何在 一 个 PL/SQL 块 内 使 用 DML (数据 操纵 语言 ) 。 这 些 示 
例 还 利用 序列 生成 唯一 的 编号 。 


3.2 节 涉及 PL/SQL 中 的 事务 控制 ， 通 过 提交 数据 以 及 如 何 使 用 SAVEPOINT 解 释 了 其 合 义 。 最 后 一 个 示例 演示 了 如 何 利用 ROLLBACK 与 SAVEPOINT 
的 结合 来 逆转 已 提交 的 数据 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


ВДЕ ”条 件 控制 :IF 语句 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


- ТЕЗЕ ©) 
. ELSIF ё] 
` 庶 套 的 I 语句 


几乎 在 你 写 的 每 个 程序 中 ， 你 都 需要 做 出 决定 。 例 如 ， 如 果 在 本 财 年 结束 时 ， 必 须根 据 员工 的 工资 给 他 们 友 奖 金 。 为 了 计算 员工 的 奖金 ， 程 序 需要 
拥有 条 件 控制 。 换 句 话说 ， 它 需要 使 用 一 个 选择 结构 。 


条 件 控制 允许 你 基于 条 件 来 控制 程序 的 执行 流程 。 从 编程 方面 来 说， 这 意味 着 程序 中 的 语句 不 是 顺序 执行 的 。 相 反 ， 程 序 将 根据 条 件 的 计算 结果 来 
执行 一 组 语句 或 男 一 组 语句 。 


在 PL/SQL 中 ， 有 三 种 类 型 的 条 件 控制 : IF、ELSIF 和 CASE 语 句 。 本 章 将 探讨 两 种 条 件 控制 一 一 IF 和 ELSIF， 并 了 解 这 些 类 型 可 以 如 何 相互 诅 套 。 
CASE 语 句 将 在 第 5 草 中 讨论 。 


41 实验 1: IRES 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 使 用 IF-THEN 语 和 句 。 


- 使 用 IF-THEN-ELSEB 语 句 。 


IF 语 句 有 两 种 形式 : IF-THEN 和 IF-THEN-ELSE。1F-THEN 语 句 允 许 你 指定 一 组 要 执行 的 操作 。 换 句 话说 ， 仪 当 条 件 的 计算 结果 为 TRUE 时 ， 这 组 操 
作 才 执行 。IF-THEN-ELSE 语 句 允 许 你 指定 两 组 操作 ， 而 第 二 组 操作 在 条 件 的 计算 结果 为 FALSE 或 NULL 时 执行 。 


42 ”实验 2: ELSIF 语 名 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
使 用 ELSIF 语 句 。 
ELSIF 语 句 的 结构 如 清单 4.3 所 示 。 


清单 4.3 ”ELSIF 语 句 结 构 


条 件 1 
THEN 

ial; 
ELSIE 条 件 2 
THEN 

г; 
ELSIF 条 件 3 
THEN 

语句 3; 
http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/0EBPS/Text/... 
ELSE 

语句 NN; 
END IF; 


保留 字 IF 标 志 了 ELSIF 结 构 的 开始 。 从 条 件 1 到 条 件 N 是 计算 结果 为 TRUE 或 FALSE 的 一 系列 条 件 。 这 些 条 件 是 互 斥 的 。 换 句 话说 ， 如 果 条 件 1 的 计算 结 
果 为 TRUE,， 语句 1 束 执 行 ， 并 且 控 制 权 就 转 到 保留 词 END IF 后 的 第 一 个 可 执行 语句 。ELSIF 结 构 的 其 余部 分 被 忽略 。 当 条 件 1 的 值 为 FALSE 时 ， 控 制 权 融 
转 到 ELSIF 部 分 ， 并 对 条 件 2 进 行 计算 ， 并 依 此 类 推 。 如 果 任何 指定 条 件 的 值 都 不 为 TRUE， 则 控制 权 转 到 ELSIF 结 构 的 ELSE 部 分 。 一 个 ELSIF 语 句 可 以 包含 
任意 数量 的 ELSIF 子 句 。 这 种 逻辑 流 如 图 4-3 所 示 。 


Fin ELSIF 


r 


执行 语句 1 


2 HE 是 


T 


执行 语句 2 
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图 4-3 显 示 ， 如 果 条 件 1 的 计算 结果 为 TRUE， 则 执行 语句 1， 并 且 控 制 权 转 到 END IF 后 的 第 一 条 语句 。 如 果 条 件 1 的 计算 结果 为 FALSE， 则 控制 权 转 
到 条 件 2。 如 果 条 件 2 的 值 为 TRUE， 则 语句 2 执行 。 否 则 ， 控 制 权 转 到 END IF 之 后 的 语句 ， 等 等 。 考 虑 下 面 的 示例 。 


示例 ch04 3a.sql 


DECLARE 
Уу пит NUMBER := &SV num; 

BEGIN 
DBMS OUTPUT.PUT LINE ('Before IF statement...'); 
IF у пит < 0 


THEN 
DBMS OUTPUT.PUT LINE (у num||' is a negative number'); 
ELSIF у_пиш = 0 
THEN 
DBMS OUTPUT .PUT LINE (у num||' is equal to zero'); 
ELSE 
DBMS OUTPUT.PUT LINE (у num||' is a positive number'); 
END IF; 
DBMS ООТРОТ.РОТ LINE ('After IF statement...'); 
END; 


变量 v num 的 值 在 运行 时 提供 ， 并 借助 ELSIF 语 句 进行 计算 。 如 果 v_ num 的 值 小 于 0， 则 第 一 个 DBMS OUTPUT.PUT LINE 语 句 执行 ， 并 且 ELSIF 结 
构 终 止 。 如 果 v_num 的 值 大 于 0， 两 个 条 件 


у пит < 0 


和 


v_num = 0 


的 计算 结果 都 为 FALSE， 并 且 ELSIF 结 构 的 ELSE 部 分 会 执行 。 
假设 变量 v num 的 值 在 运行 时 等 于 5。 那 么 该 示例 将 产生 下 面 的 输出 : 
Before IF statement... 


5 is a positive number 
After IF statement... 


你 知道 吗 ? 
对 于 ELSIF 语 句 : 
. IF 必须 始终 与 END IF 匹配 。 
- 在 END 和 IE 之 间 必 须 有 空格 。 如 果 省 略 空格 ， 编 译 器 将 产生 以 下 错误 : 


ORA-06550: line 13, column 4: 
PLS-00103: Encountered the symbol ";" when expecting one of the following: if 


正如 你 所 看 到 的 ， 此 错误 消息 不 是 很 清楚 ， 并 且 这 会 让 你 花 一 段 时 间 来 纠正 它 ， 特 别 是 如 果 你 以 前 没有 遇 到 过 它 。 


. 在 ELSIF 中 没有 第 二 个 “E”。 


“ ELSIF 语 名 中 的 条 件 必须 是 互 斥 的 。 这 些 条 件 按 照 从 第 一 个 到 最 后 一 个 的 顺序 进行 计算 。 一 旦 条 件 的 计算 结果 为 TRUE， 则 ELSIF 语 句 的 其 余 条 件 


都 不 会 计算 。 考 虑 下 面 这 个 ELSIF 结 构 的 示例 : 


ТЕ у num >= 0 
THEN 

DBMS OUTPUT.PUT LINE ('у num is greater than 0'); 
ELSIF v num <= 10 


THEN 

DBMS OUTPUT.PUT LINE ('v_ num is less than 10'); 
ELSE 

DBMS ООТРОТ.РОТ LINE ('v_ num is less than ? or greater than ?'); 
END LF; 


假定 v_num 的 值 等 于 5。ELSIF 语 句 的 两 个 条 件 的 计算 结果 都 为 TRUE， 因 为 5 大 于 0 且 5 小 于 10。 然 而 ,一 旦 第 一 个 条 件 v_num>=0 的 计算 结果 为 


TRUE ，ELSIF 结 构 的 其 余部 分 就 会 被 忽略 。 


对 于 大 于 或 等 于 0 且 小 于 或 等 于 10 的 任何 v_num 值 ， 这 些 条 件 并 不 是 互 斥 的 。 因 此 ， 不 会 为 任何 此 类 v_num 值 执行 与 ELSIF 子 句 关联 的 


DBMS_OUTPUT.PUT_LINE 语 句 。 在 此 ， 要 使 第 二 个 条 件 v_num<=10 的 计算 结果 为 TRUE，v_num 的 值 必须 小 于 0。 
你 会 如 何 改写 这 个 ELSIF 结 构 来 捕获 0~10 之 间 的 任何 v_num 值 ， 并 用 单个 条 件 在 屏幕 上 显示 它 呢 ? 


当 使 用 ELSIF 结 构 时 ， 如 果 没 有 计算 结果 为 TRUE 的 条 件 ， 则 没有 必要 指定 应 采取 哪些 操作 。 换 句 话 说， 在 ELSIF 结 构 中 ELSE 子 句 不 是 必需 的 。 考 虑 下 
面 的 示例 : 


示例 ch04 3b.sql 


DECLARE 
Уу пит NUMBER := &sv_ num; 
BEGIN 
DBMS OUTPUT .PUT LINE ('Before IF statement...!'); 
IF у num < 0 
THEN 
DBMS OUTPUT.PUT LINE (Vv num||' is a negative number'); 
ELSIF Уу пит > 0 
THEN 
DBMS OUTPUT .PUT LINE (v num||' is a positive number'); 
END IF; 
DBMS OUTPUT.PUT LINE ('After IF statement...'); 
END; 


正如 你 所 看 到 的 ， 当 v_num 等 于 0 时 ， 没 有 指定 的 操作 。 如 果 v_num 的 值 等 于 0， 这 两 个 条 件 的 计算 结果 都 为 FALSE， 并 且 ELSIF 语 句 根本 不 会 执行 。 
当 赋予 v num 一 个 零 值 时 ， 该 示例 将 产生 下 面 的 输出 : 


Before IF statement... 
After IF statement... 


你 知道 吗 ? 


你 可 能 注意 到 了 ， 对 于 所 有 IF 语 句 的 示例 ， 保 留 字 IF、ELSIF、ELSE 和 END IF 都 在 单独 一 行 输入 ， 并 与 单词 IF 对 齐 。 此 外 ， 在 IE 结构 中 的 所 有 可 执 
行 语 名 都 缩 进 。IF 结 构 的 格式 对 编译 器 来 说 是 没有 区 别 的 ,但 是 对 我 们 来 说 ， 用 这 种 风格 格式 化 的 I 结构 的 含义 会 更 明显 。 


ІЕ-ТНЕМ-БІЅЕ з ё) : 
IF x = у THEN у txt := 'YES'; ELSE v txt := NO ) END IF; 


相当 于 
IE х = y 
THEN 
у СХС := IBS" i 
ELSE 
у txt := 'NO'; 
END IF; 


格式 化 版 本 的 IE 结构 更 容易 阅读 和 理解 。 
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完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 谱 套 的 IF 语 和 句 。 


我 们 已 经 遇 到 了 不 同类 型 的 条 件 控制 : IF-THEN 语 句 、IF-THEN-ELSE 语 句 和 ELSIF 语 句 。 这 些 类 型 的 条 件 控制 可 以 相互 宜人 套 ， 例 如 ，IF 语 句 可 以 岂 
套 人 在 ELSIF 的 内 部 ， 反 之 亦 然 。 考 虑 下 面 的 示例 : 


示例 ch04 4a.sql 


DECLARE 
Уу numl NUMBER : 
v_num2 NUMBER : 
v total NUMBER; 


&sv_numl; 
&sv_ пит2; 


BEGIN 

IF v numi > v num2 

THEN 
DBMS ООТРОТ.РОТ 1ІМЕ ('IF part of the outer IF'); 
v_total := у numl - v_num2; 

ELSE 
DBMS OUTPUT .PUT LINE ('ELSE part of the outer ТЕ'); 
v_total := v numi + у пит2; 


IF v total < 0 
THEN 
DBMS OUTPUT.PUT LINE ('Inner IF'); 
v total := v total * (-1); 
END IF; 
END IF; 
DBMS OUTPUT .PUT LINE ('v_total = '||v_total); 
END ; 


因为 IF-THEN-ELSE 语 句 包含 了 IF-THEN 语 句 (以 粗 体 显示 ) ， 所 以 它 称 为 外 层 IF 语 句 。1IF-THEN 语 句 称 为 内 层 |F 语 句 ， 因 为 它 是 由 IF-THEN-ELSE 
语句 体 包 围 的 。 


假设 v num1 和 v_num2 的 值 分 别 是 -4 和 3。 首 移 ， 计 算 外 层 IF 语句 的 条 件 


Уу поті > у num2 


因为 -4 不 大 于 3， 外 层 IF 语 句 的 ELSE 部 分 被 执行 。 其 结果 是 ， 显 示 消 息 


ELSE part of the outer IF 


并 且 计 算 v_total 的 值 。 接 着 ,计算 内 层 IF 语 句 的 条 件 


“tal -«2 0 


因为 v_ total 的 值 等 于 -|， 所 以 条 件 产 生 TRUE， 并 且 显 示 消 息 
Inner IF 


接着 ， 再 次 计算 v_total 的 值 。 这 个 逻辑 被 示例 产生 的 输出 证 实 : 


ELSE part of the outer IF 
inner LF 
v_total = 1 


在 本 章 中 ， 到 目前 为 止 ， 你 已 经 看 到 了 不 同 的 |F 语 名 的 示例 。 所 有 这 些 示例 都 使 用 了 测试 运算 符 ， 如 >、< 和 = 来 计算 一 个 条 件 。 逻 辑 运算 符 也 可 以 
用 来 计算 条 件 。 另 外 ， 它 们 允许 程序 员 将 多 个 条 件 组 合成 单个 条 件 ， 如 果 有 这 样 的 需要 。 


示例 ch04 5a.sql 


DECLARE 
у letter СНАК (1) ;= !&8у Jetter'; 
BEGIN 
IF (v_letter >= 'A' AND у letter <= 'Z') OR 
(v_letter >= 'a' AND v_letter <= 'z') 
THEN 
DBMS OUTPUT.PUT_LINE ('This is a letter'); 
ELSE 
DBMS ООТРОТ.РОТ 1ІМЕ ('This is not а letter'); 
IF v letter BETWEEN '0' апа '9' 
THEN 
DBMS OUTPUT.PUT 1ІМЕ ('This is a number'); 
ELSE 
DBMS OUTPUT.PUT LINE ('This is not a number'); 
END IF; 
END ІЕ; 
END; 


在 本 示例 中 ， 条 件 


(у letter >= 'А' AND v letter <= 'Z') OR 
(v_letter >= 'а' AND v letter <= 'z') 


使 用 了 逻辑 运算 符 AND 和 OR。 两 个 条 件 


(Уу letter >= 'A' AND v letter <= '27') 
和 
(у letter >= 'a' AND v letter <= 'z') 
АВЛОКЖАИЧН ЭЕ — DR. FARES. ТЕМУ, GIAREN, ARRANDA FOR, 


当 在 运行 时 输入 “?” 符 号 时 ， 此 示例 产生 下 面 的 输出 : 


This is not а letter 
This is not a number 


你 知道 吗 ? 
你 可 以 以 任意 深度 层级 来 蔡 套 IF 语句 ， 直 到 达到 一 个 PL/SQL 块 的 最 大 长 度 为 止 ， 而 块 本 身 的 误 套 深度 可 以 达到 255 层 。 考 虑 下 面 的 示例 ， 其 中 ，IF 语 


名 是 四 层 深 度 内 相互 容 套 的 : 


DECLARE 
у varl PLS INTEGER 100; 
v var2 PLS INTEGER := 200; 


v_var3 PLS INTEGER 300; 
у var4 PLS INTEGER := 400; 
BEGIN 
IF v varl >= 100 
THEN 
IF v Var2 >= 200 


THEN 
IF у var3 >= 300 
THEN 
ТЕ у Var4 >= 400 
THEN 
DBMS OUTPUT.PUT LINE 
(бу vari = '||у уаг1||?, у уаї2 = :| |v уаг2 | | 
', у var3 = '||v_var3||', у var4 = '||у уаг4); 
END IF; 
END IF; 
END IF; 
END IF; 
END; 


虽然 这 个 脚本 很 简单 ， 并 且 没 什么 大 的 作用 ， 但 这 种 深度 庶 套 的 IF 语句 理 解 起 来 很 困难 ， 并 在 实现 复杂 的 业务 解决 方案 时 ， 会 很 快 就 变 得 非常 复 


FS 


在 此 示例 中 ， 可 以 利用 AND 运 算 符 组 合 这 些 条 件 ， 来 把 四 个 伐 套 的 IF 语句 重组 为 单个 IF 语句 : 


IF У varl >= 100 AND у var2 >= 200 апа у var3 >= 300 AND v_var4 >= 400 


ТНЕМ 


END ТЕ; 
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用 多 辑 运 算 符 。 几 乎 所 有 的 编程 语言 都 支持 条 件 控制 结构 ， 虽 然 语法 可 能 会 友 生 变化 ， 但 它们 的 使 用 方式 保持 不 变 。 


在 第 5 草 ， 我 们 将 通过 CASE 语 句 和 CASE 表 达 式 继续 了 解 条 件 控制 。 此 外 ， 我 们 还 将 了 解 由 SQL 和 PL/SQL 语 言 支 持 的 NULLIF 和 COALESCE 消 数 。 


顺便 说 况 
配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


Вов 条件 控制 : CASE 语 名 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. CASE 4] 
· CASE 表达 式 


. NULLIE 和 COALESCE 5 Ж 


在 第 4 章 中 ， 我 们 通过 IF 和 ELsIF 语 句 探讨 了 条 件 控制 的 概念 。 在 本 章 中 ， 你 将 通过 检查 不 同类 型 的 CASE 语 句 和 表达 式 继 续 这 种 探讨 。 你 还 将 学 习 如 
何 使 用 NULLIF 和 COALESCE 函 数 ， 这 被 认为 是 对 CAsE 的 扩展 。 


5.1 30251: CASE 语 名 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
‚ 使 用 CASE 语 和 句 。 
` 使 用 搜索 CASE 语 句 。 
` 使 用 座 套 CASE 语 句 。 


CASE 语 句 有 两 种 形式 : CASE 和 搜索 CASE。CASE 语 句 人 允许 你 指定 一 个 确定 要 采取 哪 组 操作 的 选择 子 (selector) 。 搜 索 的 CASE 语 句 没有 选择 子 ， 
相反 ， 它 具有 要 进行 计算 ， 以 决定 应 该 采取 哪 组 操作 的 搜索 条 件 。 


5.2 50592: CASE 表 达 式 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 CASE 表 达 式 。 


在 第 2 章 ， 我 们 探讨 了 各 种 PL/SQL 表 达 式 。 回 顾 一 下 ， 表 达 式 的 结果 是 可 被 赋予 一 个 变量 的 单个 值 。 类 似 地 ，CASE 表 达 式 的 计算 结果 也 是 可 被 赋予 
一 个 变量 的 单个 值 。 


CASE 表 达 式 有 一 个 几乎 等 同 于 CASE 语 句 的 结构 。 因 此 ， 它 也 有 两 种 形式 : CASE 和 搜索 CASE。 考 虑 在 本 章 的 第 一 个 实验 中 使 用 CASE 语 句 的 一 个 示 
例 : 


示例 ch05 1d.sql 


DECLARE 
v_num NUMBER := &sv user num; 
у num flag NUMBER; 

BEGIN 


v_num_flag := MOD (v_num,2); 


-- 测试 由 用 户 提供 的 数值 是 否 为 偶数 


CASE v_num flag 
WHEN 0 
THEN 
DBMS OUTPUT.PUT LINE (v num||' is even number'); 
ELSE 
DBMS _ OUTPUT .PUT LINE (v_num||' is odd number'); 
END CASE; 
END; 


现在 考虑 同一 个 示例 的 新 版 本 ， 它 采用 一 个 CASE 表 达 式 来 代 蔡 CASE 语 句 。 更 改 的 地 方 以 粗 体 显示 。 


示例 ch05 1e.sql 


DECLARE 
Уу num NUMBER := &sv user num; 
v_num flag NUMBER; 
v result VARCHAR2 (30); 
BEGIN 
у пит flag := MOD (у пит, 2); 


-- 测试 由 用 户 提供 的 数值 是 否 为 偶数 


v result := CASE v num flag 


WHEN 0 
THEN 
v_num||' is even number' 
ELSE 
v num||' is odd number' 
END; 
DBMS OUTPUT.PUT LINE (v result); 


END; 

在 这 个 示例 中 ， 用 一 个 新 变量 v_result 来 保 仔 由 CASE 表 达 式 返回 的 值 。 如 果 将 8 赋予 变量 v_ num ， 这 个 示例 将 产生 下 面 的 输出 : 
8 is even number 

必须 注意 到 CASE 语 句 和 CASE 表 达 式 之 间 的 一 些 语法 差异 。 考 虑 表 5-2 所 示 的 代码 片段 。 


表 5-2 CASE 语句 与 CASE 表 达 式 


CASE 语句 CRASE 表达 式 
CASE у num flag CASE V num flag 
WHEN 0 WHEN 0 
THEN THEN 
DBMS OUTPUT.PUT LINE v_num||' is even number' 
(v_num||' is even number'); 
ELSE ELSE 
DBMS OUTPUT.PUT LINE v_num||' is odd number' 
(v_num||' is odd number'); 
END CASE; END; 


在 CASE 语 句 中 ，WHEN 和 ELSE 子 句 都 包含 一 个 可 执行 语句 。 每 个 可 执行 语句 都 以 分 号 结束 。 在 CASE 表 达 式 中 ，WHEN 和 ELSE 子 句 都 包含 不 以 分 号 
结束 的 表达 式 。 分 号 出 现在 用 来 终止 CASE 表 达 式 的 保留 字 END 后 。 最 后 一 个 区 别 是 ，CASE 语 句 以 保留 词 END CASE 结 束 。 


接 下 来 ， 考 虑 前 面 示例 的 男 一 个 版 本 ， 它 包含 搜索 CASE 表 达 式 ( 受 影响 的 语句 以 粗 体 显示 ) : 


示例 ch05 1f.sd| 


DECLARE 
Уу пит NUMBER := &sv user num; 
v_result VARCHAR2 (30); 

BEGIN 


-- 测试 由 用 户 提供 的 数值 是 否 为 偶数 
v_result := CASE 
WHEN MOD (у num,2) = 0 


THEN 
v num||' is even number' 
ELSE 
v num||' is odd number' 
END; 
DBMS OUTPUT.PUT LINE (v_result); 


END; 


在 这 个 示例 中 ， 没 有 必要 声明 变量 v_ пит _flag， 因 为 CASE 搜 索 表 达 式 不 需要 一 个 选择 子 的 值 ， 并 且 MOD 阔 数 的 结果 被 并 入 了 搜索 条 件 中 。 当 这 个 


示例 运行 时 ， 它 产生 的 输出 等 同 于 以 前 的 版 本 : 
8 is even number 


我 们 刚才 了 解 到 ，CAsE 表 达 式 返回 随后 被 赋予 一 个 变量 的 单个 值 。 在 你 前 面 看 到 的 示例 中 ， 这 个 赋值 操作 通过 赋值 运算 符 := 来 完成 。 你 可 能 还 记 
得 ， 还 有 另 一 种 方式 可 以 给 PL/SQL 变 量 赋值 ， 也 就 是 说 ， 通 过 一 个 SELECT INTO 语 和 句 来 赋值 。 考 虑 在 SELECT INTO 语 句 中 使 用 CASE 表 达 式 的 一 个 示 
例 : 

示例 ch05 4а.д| 

DECLARE 


v course по NUMBER ; 
v_description VARCHAR2 (50); 


у prereq VARCHAR2 (35); 
BEGIN 
SELECT course_no 
, description 
, CASE 
WHEN prerequisite IS NULL 
THEN 
'No prerequisite course required' 
ELSE 


ТО CHAR (prerequisite) 
END prerequisite 
INTO у сочгзѕе по 
‚У деѕсгірёсіоп 
‚У ртетед 
FROM course 
WHERE course по = 20; 


DBMS _ OUTPUT .PUT LINE ('Course: '||v course по); 
DBMS OUTPUT.PUT LINE ('Description: '||v description); 
DBMS OUTPUT.PUT LINE ('Prerequisite: '||v prereq); 

END ; 


此 脚本 在 屏幕 上 显示 课程 编号 、 说 明和 先决 课程 的 编号 。 此 外 ， 如 果 给 定 的 课程 没有 一 个 先决 课程 ， 就 在 屏幕 上 显示 一 个 消息 ， 指 出 该 事实 。 为 了 
达到 理想 的 效果 ， 在 SELECT INTO 语 句 中 ，CASE 表 达 式 被 当 作 一 个 列 使 用 。 它 的 值 被 赋予 变量 v_prereq。 请 注意 ，CASE 表 达 式 的 保留 字 END 之 后 没有 


==] 
o 


a> 


该 示例 产生 下 面 的 输出 : 
Course: 20 


Description: Intro to Information Systems 
Prerequisite: No prerequisite course required 


课程 20 没 有 一 个 先决 课程 。 因 此 ， 搜 索 条 件 


WHEN prerequisite IS NULL 
THEN 


的 计算 结果 为 TRUE， 而 值 “No prerequisite course required” (无 需 先 决 课程 ) 被 赋予 变量 v prereq。 


必须 注意 为 什么 要 在 CASE 表 达 式 的 ELSE 子 句 中 使 用 TO_CHAR 消 数 : 


CASE 
WHEN prerequisite IS NULL 
THEN 
'No prerequisite course required' 
ELSE 
TO CHAR (prerequisite) 
END 


CASE 表 达 式 返回 单个 值 ， 因 此 ， 它 具有 单一 的 数据 类 型 。 出 于 这 个 原因 ， 必 须 确保 不 管 CASE 表 达 式 的 哪 一 部 分 被 执行 ， 它 总 是 返回 相同 的 数据 类 
型 。 在 前 面 的 CASE 表 达 式 中 ，WHEN 子 句 返 回 VARCHAR2 数 据 类 型 。ELSE 子 句 返 回 COURSE 表 的 PREREQUISITE 列 的 值 。 此 列 已 被 定义 为 NUMBER 类 
型 ， 所 以 需要 将 其 转换 成 字符 串 数据 类 型 。 

当 未 使 用 TO_CHAR 函 数 时 ，CASE 表 达 式 会 导致 以 下 语法 错误 : 

ORA-06550: line 13, column 17: 
PL/SQL: ORA-00932: inconsistent datatypes: expected CHAR got NUMBER 


ORA-06550: line 6, column 4: 
PL/SQL: SQL Statement ignored 


5.3 ”实验 3: NULLIF 和 COALESCE 峭 数 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 使 用 NULLIEF 有 函数 。 
. 4 А СОАГЕЅСЕ 5 Ж, 


NULLIF 和 COALESCE 函 数 由 ANSI 1999 标 准 定义 为 “CASE 的 缩写 ”。 这 两 个 函数 都 可 以 用 作 CASE 表 达 式 的 变 体 。 


54 4н 


IONA 


在 第 4 草 ， 我 们 开始 探索 Oracle 的 PL/SQL 语 言 支 持 的 条 件 控制 结构 。 在 本 草 ， 我 们 通过 学 习 CASE 语 句 和 表达 式 ， 以 及 COALESCE 和 NULLIF 消 数 继 
续 这 种 探索 。 你 已 经 学 会 了 如 何在 SQL 和 PL/SQL 语 言 中 使 用 CASE 结 构 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


Вб: AREE: 第 一 部 分 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
:简单 循环 
· УУ НПЕД Ж 


. 数字 FOR 循环 


之 所 以 要 编写 计算 机 程序 ， 通 常 是 因为 某 些 任务 必须 被 多 次 执行 。 例 如 ， 许 多 企业 都 需要 按 月 处 理事 务 ， 这 种 任务 能 够 通过 在 每 个 月 末 执 行 某 个 程 
同样 ， 程 序 也 包括 需要 重复 执行 的 指令 。 例 如 ， 一 个 程序 可 能 需要 将 一 些 记录 写 入 到 表 中 。 利 用 循环 ， 程 序 可 以 将 所 需 数量 的 记录 写 入 一 个 表 。 换 
言 之 ， 循 环 是 允许 一 组 指令 被 重复 执行 的 编程 设施 。 


在 PHSQL 中 ， 有 四 种 类 型 的 循环 、 简 单 循环 、WHILE 循 环 、 数 字 FOR 循 环 和 游标 FOR 循环 。 在 本 章 ， 我 们 将 探讨 简单 循环 、WHILE 循 环 和 数字 FOR 
循环 。 在 第 7 章 ， 你 将 看 到 这 些 类 型 的 循环 可 以 如 何 相互 瞪 套 。 此 外 ， 你 还 将 了 解 CONTINUE 和 CONTINUE WHEN 语句 ， 这 是 在 Oracle 11g 中 引入 的 。 
游标 FOR 循环 将 在 第 11 章 和 第 12 章 讨论 。 


6.1 实验 1: 简单 循环 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 简单 循环 与 EXIT 条 件 。 
` 使 用 简单 循环 与 EXIT WHEN 条 件 。 
简单 循环 ， 正 如 你 可 以 从 它 的 名 字 所 看 到 的 ， 是 最 基本 的 一 种 循环 ， 并 具有 清单 6-1 所 示 的 结构 。 


清单 6-1 ”简单 循环 结构 


LOOP 
PIL 
iee 2; 
http: //www.hzcourse .com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/0EBPS/Text/... 
语句 N; 
END LOOP; 


保留 字 LOOP 标 志 着 简单 循环 的 开始 。 语 句 1 到 NN 是 重复 执行 的 语句 序列 。 这 些 语 句 包含 一 个 或 多 个 标准 的 编程 结构 。END LOOP 是 保留 词 ， 指 示 循 
环 结构 的 结束 。 这 种 结构 的 逻辑 流 如 图 6-1 所 示 。 


图 6-1 简单 循环 


简单 循环 每 次 迭代 时 ， 都 执行 一 组 语句 序列 ， 然 后 控制 返回 到 循环 的 顶部 。 语 名 序列 将 执行 无 数 次 ， 因 为 没有 指定 何 时 循环 必须 终止 的 语句 。 因 
此 ， 简 单 循环 被 称 为 无 限 循 环 ， 因 为 没有 办 法 退出 循环 。 正 确 构造 的 循环 需要 有 一 个 确定 循环 何 时 完成 的 退出 条 件 。 这 种 退出 条 件 有 两 种 形式 : EXIT 和 
EXIT WHEN。 


6.2 ”实验 2: WHILE 循环 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
-使 用 WHILE 循环 。 


. 提前 终止 WHILE 循环 。 


6.3 实验 3: 数字 FOR 循环 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 带 有 IN 选项 的 数字 FOR 循环 。 
` 使 用 带 有 REVERSE 选 项 的 数字 FOR 循环 。 
‚ 提前 终止 数字 FOR 循环 。 
数字 FOR 循环 之 所 以 名 字 中 市 有 数字 二 字 ， 是 因为 它 需要 一 个 整数 作为 它 的 终止 值 。 这 种 循环 的 结构 如 清单 6-6 所 示 。 


清单 6-6 ”数字 FOR 循环 结构 


FOR loop counter IN [REVERSE] lower limit..upper limit 
LOOP 

语句 1; 

语句 2; 

语句 N; 
END LOOP; 


保留 字 FOR 标 志 着 循环 结构 的 开始 。 变 量 loop_counter 是 一 个 隐 合 定义 的 索引 变量 。 没 有 必要 在 PL/SQL 块 的 声明 部 分 中 定义 循环 计数 器 ， 相反， 这 
个 变量 是 由 循环 结构 定义 的 。lower limit 和 upper limit 是 整数 或 在 运行 时 计算 结果 为 整数 值 的 表达 式 ， 而 双 点 
(http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/..) 作为 范围 运算 符 。 
lower _limit 和 upper_limit 定 义 循环 迭代 的 次 数 ， 并 且 它 们 的 值 在 循环 的 第 一 次 迭代 时 被 一 次 性 地 计算 。 此 时 ， 该 循环 将 迭代 多 少 次 就 已 经 确定 了 。 语 句 
1 到 N 是 重复 执行 的 语句 序列 。END LOOP 是 保留 词 ， 它 标志 着 循环 结构 的 结束 。 


定义 循环 时 ，IN 或 IN REVERSE 保 留 字 之 一 必须 仔 任 。 当 使 用 REVERSE 天 键 字 时 ， 循 环 计数 器 将 从 上 限 志 历 到 下 限 。 然 而 ， 限 制 规 学 的 语法 没有 改 
变 。 下 限 始终 首先 被 引用 。 这 种 逻辑 沅 如 图 6-4 所 示 。 


开始 循环 


初始 化 计数 费 


一 一 计数 器 在 上 下 限 之 间 吗 


执行 语句 


结束 循环 


图 6-4 “数字 FOR 循环 


图 6-4 显 示 了 循环 计数 器 仅 在 循环 的 第 一 次 迭代 时 被 初始 化 为 下 限 。 但 是 ,循环 计数 器 的 值 会 在 循环 的 每 次 迭代 中 进行 测试 。 只 要 v_counter 的 值 在 
下 限 和 上 限 之 间 ， 循 环 体 中 的 语句 融 被 执行 。 当 循环 计数 器 的 值 沙 在 由 下 限 和 上 限 所 指定 的 学 围 乙 外 时 ， 则 控制 融会 转 到 循环 外 的 第 一 个 可 执行 语句 。 


6.4 总 结 


在 本 章 ， 我 们 探讨 了 PLMSQL 往 持 的 三 种 类 型 的 循环 。 我 们 还 学 会 了 如 何 使 用 退出 条 件 来 防止 无 限 循环 ， 以 及 如 何 提前 终止 循环 。 在 第 7 章 ， 我 们 将 
继续 了 解 循环 ， 并 探讨 如 何 将 它们 互相 内 套 。 此 外 ， 你 还 将 了 解 循环 的 其 他 功能 ， 在 Oracle 119 中 引入 的 CONTINUE 和 CONTINUE WHEN, 


ЛИ тле 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


PIA AREE: 第 二 部 分 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. CONTINUE 3 ё 
ИЕ: ЛА У 


在 第 6 章 ， 我 们 探讨 了 三 种 类 型 的 循环 : 简单 循环 、WHILE 循 环 和 数字 FOR 循环 。 我 们 还 了 解 到 ， 这 些 类 型 的 循环 可 以 用 退出 条 件 来 终止 。 在 本 章 ， 
你 将 学 习 如 下 内 容 : 在 Oracle 11g 中 引入 的 一 个 被 称 为 继续 条 件 的 PLUSQL 新 功能 。 类 似 于 退出 条 件 ， 继 续 条 件 也 有 两 种 形式 ，CONTINUE 和 
CONTINUE WHEN， 并 且 仪 可 在 循环 体内 使 用 。 你 还 将 学 习 如 何 互相 腐 套 不 同类 型 的 循环 。 


7.1 实验 1: CONTINUE 语 句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 4 CONTINUE H 6) - 
` 使 用 CONTINUE НЕМ 6) „ 


正如 前 面 提 到 的 ， 继 续 条 件 有 两 种 形式 : CONTINUE 和 CONTINUE WHEN, 


7.2 20182: EIAI 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
А ЛАЖ. 


` 使 用 循环 标签 。 


7.3” 忆 结 


ГЕЛ та) 


在 第 6 草 ， 我 们 开始 探索 PL/SQL 支 持 的 不 同类 型 的 循环 。 在 本 章 ， 我 们 通过 学 习 在 Oracle 11g 中 引入 更 多 的 循环 功能 继续 这 种 探索 。 你 也 发 现 了 有 
天 的 各 种 类 型 循环 可 以 如 何 互相 诅 套 。 最 后 ， 我 们 学 习 了 在 使 用 瞪 套 循环 时 ， 如 何 用 循环 标签 来 提高 代码 的 可 读 性 和 可 维护 性 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


ВВЕ ПУЕ ЯР 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- 处理 错误 
.内置 异常 


在 第 1 章 ， 我 们 遇 到 了 可 以 在 程序 中 友 现 的 两 种 类 型 的 错误 : 运行 时 错误 和 编译 错误 。 我 们 还 了 解 到 ， 在 PL/SQL 块 中 有 一 个 特殊 的 部 分 来 处 理 运 行 
时 错误 。 在 这 个 所 谓 的 异常 处 理 部 分 中 ， 运 行 时 错误 被 称 为 异常 。 异 常 处 理 部 分 允许 程序 员 指 定 当 特 定 的 异常 友 生 时 应 采取 的 操作 。 


在 PL/SQL 中 ， 有 两 种 类 型 的 异常 :内置 异常 和 用 户 定 义 的 异常 。 在 本 草 ， 你 将 学 习 借 助 内 置 异常 处 理 某 些 类 型 的 运行 时 错误 。 用 户 定 义 的 异常 将 在 
第 9 章 和 第 10 章 讨论 。 


8.1 ”实验 1: 处 理 错误 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 

` 理解 铺 误 处 理 的 重要 性 。 
下 面 的 示例 说 明了 编译 错误 和 运行 时 错误 之 间 的 一 些 区 别 : 
示例 ch08 1a.sql 


DECLARE 
Уу numi INTEGER : 
v num2 INTEGER : 
у result NUMBER; 
BEGIN 
v_result = у поті / у пит2; 


&ѕЅУ поті; 
&sv пит2; 


DBMS ООТРОТ.РОТ LINE ('у result: !| |у result); 
END; 


这 个 示例 是 一 个 非常 简单 的 程序 ， 其 中 有 两 个 变量 ，v_num1 和 v_num2。 用 户 提供 这 些 变量 的 值 。 接 下 来 ，v_num1 被 v num2 除 ， 这 个 除法 的 结果 
存储 在 第 三 个 变量 v_result 中 。 最 后 ， 在 屏幕 上 显示 变量 v_result 的 值 。 


现在 ,假设 用 户 分 别 为 变量 v num1 和 v_num2 提 供 了 3 和 5 的 值 。 因 此 ， 该 示例 产生 下 面 的 输出 : 


ORA-06550: line 6, column 13: 


PLS-00103: Encountered the symbol "=" when expecting one of the following: 
:= . (@%; 
The Symbol ":= was inserted before "=" to continue. 


你 可 能 会 注意 到 ， 该 脚本 没有 成 功 执行 。 在 第 6 行 遇 到 语法 错误 。 对 该 示例 的 仔细 检查 表明 ， 语 句 


у result = v numi / у пит2; 


在 应 使 用 赋值 运 算 符 的 地 方 包含 等 号 运算 符 。 该 语句 应 被 改写 如 下 : 


у result := у numl / у num2; 


再 次 运行 改正 后 的 示例 ， 将 产生 下 面 的 输出 : 


v result: ,6 


这 个 示例 现在 执行 成 功 了 ， 因 为 已 经 改正 了 语法 错误 。 
接着 ， 如 果 你 将 变量 v num1 和 v_num2 的 值 分 别 改 为 4 和 0， 那 么 将 会 产生 如 下 输出 : 
ORA-01476: divisor is equal to zero 


ORA-06512: at line 6 
01476. 00000 - "divisor is equal to zero" 


虽然 这 个 示例 没有 包含 语法 错误 ,但 脚本 也 提前 终止 了 ， 这 是 因为 输入 的 除数 v_num2 的 值 为 0。 除 以 0 是 未 被 定义 的 ， 因 此 该 操作 会 导致 错误 。 


这 个 示例 说 明 ， 运 行 时 错误 不 能 由 编译 器 检测 出 来 。 换 句 话 说 ， 对 于 某 些 为 变量 v num1 和 v_num2 输 入 的 值 ， 本 示例 成 功 执 行 。 当 为 v num1 和 
v_num2 输 入 其 他 值 时 ， 该 示例 不 能 执行 。 因 此 ， 发 生 了 运行 时 错误 。 回 想 一 下 ， 编 译 器 无 法 检测 运行 时 错误 。 在 本 例 中 ， 发 生 运 行 时 错误 ， 因 为 编译 器 
不 知道 v num1 除 以 v_ num2 的 结果 。 这 个 结果 只 能 在 运行 时 确定 ， 因 此 ， 这 个 错误 被 称 为 运行 时 错误 。 


为 了 在 程序 中 处 理 这 种 类 型 的 错误 ， 必 须 添加 异常 处 理 程序 。 异 弟 处 理 部 分 的 结构 如 清单 8-1 所 示 。 
清单 8-1 异常 处 理 部 分 


EXCEPTION 
WHEN 异常 名 称 
THEN 
错误 处 理 语句 ; 


ы] 


需要 注意 的 是 ， 异 常 处 理 部 分 在 块 的 执行 部 分 之 后 出 现 。 因 此 ， 前 面 的 示例 可 以 被 改写 成 下 面 的 形式 (新 添加 的 语句 以 粗 体 显 示 ) : 
示例 ch08 1b.sql 


DECLARE 
Уу поті INTEGER := &ѕу питмі; 


v_num2 INTEGER := &SV пит2; 

у result NUMBER; 
BEGIN 

v_result := у numl / у пит2; 

DBMS OUTPUT .PUT LINE ('у result: !| |у result) ; 
ЕХСЕРТТОМ 

WHEN ZERO DIVIDE 

THEN 

DBMS OUTPUT .PUT LINE ('A number cannot be divided by zero.'); 

END; 


示例 中 以 粗 体 显示 的 部 分 是 块 的 异 弟 处 理 部 分 。 当 使 用 值 分 别 为 4 和 0 的 变量 v_ num1 和 v_num2 执 行 这 个 版 本 的 示例 时 ， 将 产生 如 下 输出 : 


А number cannot be divided by zero. 


ШИН, Ау numi Ду_пит2, АУРА. ИШ, FEER PIERRA AEE Е. 


这 个 版 本 的 输出 说 明了 使 用 噶 芝 处 理 部 分 市 来 的 几 个 优点 。 你 可 能 注意 到 输出 看 起 来 比 以 前 的 版 本 更 整洁 。 尽 管 错误 消息 仍然 显示 在 屏幕 上 ， 但 输 
出 中 包含 了 更 多 的 信息 。 总 之 ， 它 更 适合 于 用 户 而 不 是 程序 员 。 


Oza 在 许多 场合 中 ， 用 户 不 具有 访问 代码 的 权限 。 因 此 ， 对 大 多 数 用 户 来 说 ， 引 用 一 个 程序 中 的 行 号 和 关键 字 没 什么 意义 。 


异常 处 理 部 分 允许 一 个 程序 执行 完成 ， 而 不 是 提前 终止 。 它 也 提供 了 对 错误 处 理 例 程 的 隔离 。 换 言 之 ， 对 于 一 个 特定 的 块 ， 所 有 误差 处 理 代码 都 可 
以 被 放置 在 一 个 单独 的 部 分 。 因 此 ， 程 序 的 逻辑 变 得 更 容易 跟踪 和 理解 。 最 后 ， 增 加 一 个 异常 处 理 部 分 实现 了 对 错误 的 事件 驱动 处 理 。 正 如 在 前 面 的 示 
例 所 示 ， 当 一 个 特定 的 异常 事件 ， 如 除 以 0 事件 友 生 时 ， 异 常 处 理 部 分 执行 ， 并 且 由 DBMS_OUTPUT.PUT_LINE 语 句 指定 的 错误 消息 被 显示 在 屏幕 上 。 


82 ”实验 2: 内 置 异常 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
ЖААЖ. 
如 前 所 述 ， 一 个 PL/SQL 块 的 结构 如 清单 8-2 所 示 。 


清单 8-2 ”PL/SQL 块 结构 


DECLARE 
BEGIN 

可 执行 语句 ; 
EXCEPTION 

WHEN 异常 名 称 

THEN 

错误 处 理 语句 ; 

END; 


当 发 生 错 误 引 友 一 个 内 置 异常 时 ， 称 此 异常 是 隐 式 地 引 友 的。 换言之 ， 如 果 程 序 违 反 了 Oracle 的 规则 ， 挥 制 将 转 到 块 的 异常 处 理 部 分 。 此 时 ,错误 
处 理 语句 被 执行 。 在 块 的 异常 处 理 部 分 已 经 执行 之 后 ， 块 束 终 止 了 ， 也 惑 是 说 ， 控 制 不 会 返回 到 块 的 可 执行 部 分 。 下 面 的 示例 说 明了 这 一 点 : 


示例 ch08 2a.sql 


DECLARE 

у _ student пате VARCHAR2 (50); 
BEGIN 

SELECT first name||' '||last name 


INTO v student пате 
FROM student 
WHERE student іа = 101; 


DBMS OUTPUT .PUT LINE ('Student name is !| |у student пате) ; 
EXCEPTION 
WHEN NO DATA FOUND 
THEN 
DBMS OUTPUT .PUT LINE ('There is no such Student ' ) ; 
END; 


该 示例 产生 下 面 的 输出 : 


There is no such student 


因为 在 STUDENT 表 中 没有 学 生 1D 为 101 的 记录 ， 所 以 SELECT INTO 语 和 句 不 返回 任何 行 。 其 结果 是 ， 控 制 将 转 到 块 的 异常 处 理 部 分 ， 而 错误 消 
息 “There is no such student” (没有 这 样 的 学 生 ) 被 显示 在 屏幕 上 。 即 使 SELECT INTO 语 句 之 后 出 现 一 个 DBMS_OUTPUT.PUT_LINE 语 句 ， 它 也 不 
会 被 执行 ， 因 为 控制 已 经 转移 到 异常 处 理 部 分 。 控 制 永 远 不 会 返回 到 包含 第 一 个 DBMS OUTPUT.PUT_LINE 语 句 的 此 块 的 可 执行 部 分 。 


虽然 每 个 Oracle 运 行 时 错误 都 有 与 之 相关 的 编号 ， 但 它 在 异常 处 理 部 分 中 必 
括 以 下 错误 信息 : 


须 通过 其 名 称 来 处 理 。 在 本 章 前 一 个 实验 中 使 用 的 示例 的 一 个 输出 中 包 


ORA-01476: divisor is equal to zero 
其 中 ，ORA-01476 代 表 的 是 错误 编号 。 此 错误 编号 表示 名 为 ZERO_DIVIDE 的 错误 。 一 些 常见 的 Oracle 运 行 时 错误 在 PL/SQL 中 都 被 作为 异常 预定 
义 。 下 面 的 列表 列 出 了 这 些 预定 义 异 音 中 的 一 部 分 ， 并 解释 它们 是 如 何 被 引 故 的: 


· NO_DATA_FOUND: 当 一 个 未 调用 组 函数 ， 如 SUM 和 或 COUNT 的 SELECT INTO 话 名 不 返回 任何 行 时 引发 此 和 异常。 例如， 假设 你 对 STUDENT 表 发 


出 条 件 为 学 生 ID 等 于 101 的 SELECT INTO 语 句 ， 如 果 在 STUDENT 表 中 没有 符合 这 个 标准 (学 生 ID 等 于 101) 的 记录 ， 就 会 引发 NO_DATA_FOUND 异 
常 。 


当 SELECT INTO 语 句 调 用 了 一 个 组 国 数 ， 如 COUNT 时 ， 那 么 结果 集 永 远 不 会 为 空 。 当 在 对 STUDENT 表 发 出 的 SELECT INTO 语 句 中 使 用 COUNT 卫 
数 时 ， 对 于 学 生 1D 为 123 的 值 ， 它 将 返回 0。 因 此 ， 调 用 了 一 个 组 函数 的 SELECT INTO 语 句 永远 不 会 引 故 NO DATA FOUNDRY. 


.TOO_MANY ROWS: 当 一 个 SELECT INTO 语 名 返 回 多 行 时 引发 此 和 异常。 根据 定义 ， 一 个 SELECT INTO 只 能 返回 一 行 。 如 果 SELECT INTO 9) 


返回 多 行 时 ， 就 违反 了 SELECT INTO 语 名 的 定义 。 这 将 导致 引发 TOO_MANY ROWS 异常 。 


例如 ， 你 针对 STUDENT 表 发 出 查询 特定 邮政 编码 的 SELECT INTO 语 句 。 这 个 SELECT INTO 语 句 极 有 可 能 会 返回 多 行 ， 因 为 可 能 有 很 多 学 生 都 住 在 
同一 邮政 编码 区 域 。 


. ZERO_DIVIDE: 当 在 程序 中 进行 除法 运算 并 且 除 数 等 于 零 时 引发 此 异常 。 在 本 章 前 面 的 实验 中 的 示例 说 明了 这 个 异常 是 如 何 引 发 的 。 
. LOGIN_DENIED: 当 用 户 试 图 使 用 无 效 的 用 户 名 或 密码 登录 到 Ofracle 时 引发 此 异常 。 
. PROGRAM_ERROR: 当 一 个 PL/SQL 程 序 有 内 部 问题 时 引发 此 异常 。 


VALUE_ERROR: 当 转 换 或 大 小 不 匹配 错误 发 生 时 引发 此 异常 。 例 如 ， 假 设 你 把 一 个 学 生 的 姓 选 择 到 已 被 定义 为 YARCHAR2 (5) 的 变量 中 。 如 果 


该 学 生 的 姓 包 含 的 字符 超过 5 个 ， 就 会 引发 VALUE_ERROR 异 常 。 


· DUP_VALUE_ON_INDEX: 当 某 个 程序 试图 把 重复 值 存储 到 一 个 或 多 个 定义 了 唯一 索引 的 列 时 ， 引 发 此 异常 。 例 如 ， 假 设 你 想 在 SECTION 表 中 
插入 课程 号 为 25， 课 班 号 为 1 的 记录 ， 如 果 给 定 的 课程 号 和 课 班 号 的 记录 已 经 存在 于 SECTION 表 中 ， 就 会 引发 DUP_ VAL ОМ _INDEX 异 常 ， 因 为 在 这 些 
列 上 面 定义 了 唯一 索引 。 


到 目前 为 止 ， 你 已 经 看 到 了 那些 只 能 够 处 理 一 个 异 冲程 序 的 示例 。 例 如 ， 一 个 包含 一 个 异常 处 理 程 序 与 一 个 ZERO_DIVIDE 异 党 的 PLUSQL 块 。 然 而 ， 
很 多 时 候 ， 你 需要 在 PHSQL 块 中 处 理 不 同 的 异 带 。 此 外 ， 你 往往 需要 指定 在 一 个 特定 的 异 音 被 引 及 时， 必须 采取 的 不 同 操作 ， 如 下 面 的 示例 所 示 : 


示例 ch08 3a.sql 


DECLARE 
V_Student іа NUMBER := &sv_student_id; 
v enrolled VARCHAR2 (3) := 'NO'; 

BEGIN 


DBMS_OUTPUT.PUT_LINE ('Check if the student is enrolled'); 
SELECT 'ҮЕ5' 


INTO v enrolled 
FROM enrollment 
WHERE student id = v student id; 


DBMS OUTPUT .PUT 1ІМЕ ('The student is enrolled into one course'); 
EXCEPTION 
WHEN NO DATA FOUND 
THEN 
DBMS OUTPUT .PUT LINE ('The student is not enrolled'); 


WHEN TOO MANY ROWS 
THEN 
DBMS_OUTPUT.PUT_LINE ('The student із enrolled in multiple courses'); 
END; 


这 个 示例 在 一 个 单独 的 异常 处 理 部 分 中 包含 了 两 个 异常 。 第 一 个 异常 ，NO_DATA FOUND， 如 果 在 ENROLLMENT 表 中 没有 特定 学 生 的 记录 时 将 被 
引发 。 第 二 个 异常 ，TOO_MANY_ROWS， 如 果 特 定 的 学 生 注 册 了 一 门 以 上 的 课程 时 会 被 引发 。 


试想 ， 如 果 你 用 三 个 不 同 的 学 生 ID 值 : 102、103 和 319 运 行 这 个 示例 会 友 生 什么 情况 。 在 第 一 次 运行 时 ， 学 生 ID 为 102， 示 例 将 产生 下 面 的 输出 : 


Check if the student is enrolled 
The student is enrolled in multiple courses 


在 这 种 情况 下 ， 第 一 个 DBMS_OUTPUT.PUT_LINE 语 句 被 执行 ， 并 在 屏幕 上 显示 消息 “Check if 
thehttp://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 然 后 执行 
SELECT INTO 语 句 。 你 可 能 已 经 注意 到 ，SELECT INTO 语 句 后 面 的 DBMS OUTPUT.PUT_LINE 语 句 没有 被 执行 。 当 使 用 学 生 ID 102 执 行 SELECT INTO 
语句 时 ， 它 返回 多 行 。 因 为 SELECT INTO 语 句 只 能 返回 单行 ， 所 以 控制 将 转 到 块 的 异常 处 理 部 分 。 接 下 来 ， 在 PL/SQL 块 中 引 友 适当 的 异常 。 其 结果 是 ， 
在 屏幕 上 显示 消息 “The student is enrolled in multiple courses” (此 学 生 注册 了 多 门 课程 ) ， 此 消息 是 由 异常 TOO_MANY_ROWS 指 定 的 。 


你 知道 吗 ? 
内 置 异 常 隐 式 地 引发 。 因 此 ， 你 只 需要 指定 针对 一 个 特定 的 异常 必须 采取 的 操作 。 
在 第 二 次 运行 中 ， 当 学 生 ID 为 103 时 ， 该 示例 将 产生 不 同 的 输出 : 


Check if the student is enrolled 
The student is enrolled into one course 


对 于 此 次 运行 ， 第 一 个 DBMS_OUTPUT.PUT_LINE 语 句 被 执行 ， 并 在 屏幕 上 显示 消息 “Check if 
thehttp://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 然 后 执行 
SELECT INTO 语 句 。 当 使 用 学 生 ID 103 执 行 SELECT INTO 语 句 时 ， 它 返回 单行 。 接 下 来 ,执行 SELECT INTO 语 句 后 面 的 DBMS_OUTPUT.PUT_LINE 语 
句 。 其 结果 是 ， 在 屏幕 上 显示 消息 “The student is enrolled into one course” (此 学 生 已 注册 到 一 门 课程 )。 注 意 ， 对 于 变量 v student id 的 这 个 
值 ， 没 有 异常 被 引 友 。 


о 


在 第 三 次 运行 中 ， 当 学 生 1D 为 319 时 ， 该 示例 将 产生 下 面 的 输出 : 


Check if the student is enrolled 
The student 15 not enrolled 


正如 之 前 的 运行 那样 ， 第 一 个 DBMS_OUTPUT.PUT_LINE 语 句 被 执行 ， 并 在 屏幕 上 显示 消息 “Check if 
thehttp://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 然 后 执行 
SELECT INTO 语 句 。 当 使 用 学 生 ID 319 执 行 SELECT INTO 语 句 时 ,没有 行 被 返回 。 因 此 ， 控 制 将 转 到 PL/SQL 块 的 异常 处 理 部 分 ， 并 引发 适 当 的 异常 。 
在 这 种 情况 下 ， 引 友 了 NO_DATA_FOUND 异 常 ， 因 为 SELECT INTO 语 句 没 有 返回 单行 。 因 此 ， 在 屏幕 上 显示 “The student is пої enrolled” (该 学 
生 未 注册 ) 的 消息 。 


到 目前 为 止 ， 你 已 经 看 到 了 具有 特定 异常 ， 如 NO_DATA_ FOUND 和 ZERO DIVIDE 的 异常 处 理 部 分 的 示例 。 但 是 ， 你 不 总 能 事先 预测 出 PL/SQL 块 可 
能 会 引 友 哪些 异常 。 在 这 样 的 情况 下 ， 可 以 使 用 一 个 被 称 为 OTHERS 的 特殊 异常 处 理 程序 。 所 有 预定 义 的 Oracle 错 误 (异常 ) 都 可 以 使 用 OTHERS 处 理 程 


序 进行 处 理 。 
考虑 下 面 的 示例 : 
示例 ch08 4a.sql 


DECLARE 
v_instructor_id NUMBER := &SV instructor іа; 
v_instructor_name VARCHAR2 (50) ; 
BEGIN 
SELECT first пате | |' '||last name 
INTO v instructor name 
FROM instructor 
WHERE instructor іа = у instructor іа; 


DBMS ООТРОТ.РОТ LINE ('Instructor name is !| |у instructor пате); 
EXCEPTION 
WHEN OTHERS 
THEN 
DBMS OUTPUT .PUT LINE ('Ап error has оссиггеа'); 
END; 


当 在 运行 时 为 变量 v instructor id 提供 一 个 100 的 值 时 ， 这 个 示例 将 产生 下 面 的 输出 : 
An error has occurred 


这 个 示例 说 明了 OTHERS 异 常 处 理 程序 的 用 法 ， 但 这 也 是 一 种 不 好 的 编程 习惯 。 异 常 OTHERS 已 经 被 引 友 ， 因 为 在 INSTRUCTOR 表 中 没有 教师 ID 为 
100 的 记录 。 


这 是 一 个 简单 的 示例 ， 其 中 可 以 猜测 应 使 用 哪个 异常 处 理 程序 。 然 而 ， 在 许多 情况 下 ， 你 可 能 会 友 现 许多 只 编写 了 一 个 异常 处 理 程序 OTHERS 的 程 
序 。 这 是 一 种 不 好 的 编程 习惯 ,因为 这 样 使 用 这 个 异常 处 理 程序 不 能 给 你 或 你 的 用 户 详 细 的 有 反馈。 你 其 实 不 知道 已 友 生 的 错误 是 什么 ， 而 且 用 户 也 不 知 
道 他 或 她 是 否 错误 地 输入 了 一 些 信息 。 在 使 用 OTHERS 处 理 程序 时 ， 其 他 特殊 的 错误 报告 遂 数 ， 如 SQLCODE 和 SQLERRM 对 于 提供 更 多 的 详细 信息 是 非 
常 有 用 的 。 你 将 在 第 10 草 了 解 它们 。 
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在 本 章 ， 我 们 开始 探讨 错误 处 理 和 PL/SQL 支 持 的 内 置 异常 的 概念 。 在 第 9 章 和 第 10 章 ， 你 将 继续 学 习 异 常 ， 其 范围 和 传播 ， 以 及 如 何 定 义 自己 的 异 
常 。 最 后 ， 在 第 24 章 ， 你 还 会 研究 如 何 借助 Oracle 的 内 置 包 DBMS UTILITY 和 UTL CALLSTACK 在 你 的 代码 中 产生 有 意义 的 错误 报告 。 你 还 将 看 到 ， 为 
什么 当 涉 及 错误 报告 时 ， 在 Oracle 12c 中 推出 的 UTL CALLSTACK 包 是 一 个 更 好 的 选择 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


ЯЕ 5, 


- 用 户 定义 的 异常 
出 常 传播 


在 第 8 草 ， 我 们 探讨 了 错误 处 理 和 内 置 异常 的 概念 。 在 本 草 ， 我 们 将 通过 研究 异常 是 否 能 捕获 在 一 个 PL/SQL 块 的 声明 部 分 、 可 执行 部 分 或 异常 处 理 
部 分 中 出 现 的 运行 时 错误 来 继续 这 种 探讨 。 我 们 还 将 学 习 如 何 定义 自己 的 异常 ， 以 及 如 何 重新 引 友 异常 。 


91 实验 1: 异常 作用 域 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
理解 异常 的 作用 域 。 


你 已 经 熟悉 了 作用 域 这 个 术语 ， 例 如 ， 一 个 变量 的 作用 域 。 尽 管 变量 和 有 异 音 服务 于 不 同 的 目的 ， 但 它们 都 适用 相同 的 作用 域 规 则 。 这 些 规则 最 好 是 
一 个 示例 来 说 明 。 


示例 ch09 1a.sql 


DECLARE 
v_student_id NUMBER := &sv student id; 
у пате VARCHAR2 (30); 

BEGIN 
SELECT RTRIM (first пате) ||' '||RTRIM(last name) 


INTO v name 
FROM student 


WHERE student іа = у student id; 


DBMS ООТРОТ.РОТ LINE ('Student name is '||у_пате); 
EXCEPTION 
WHEN МО РАТА FOUND 
THEN 
DBMS OUTPUT.PUT LINE ('There is no such student'); 
END; 


在 这 个 示例 中 ， 根 据 在 运行 时 提供 的 一 个 学 生 ID 的 给 定 值 ， 学 生 的 姓名 被 显示 在 屏幕 上 。 如 果 在 STUDENT 表 中 没有 对 应 于 v_student_ id 值 的 记录 ， 
MASINO РАТА FOUNDE. AH, BAR ENO РАТА FOUNDERS XDR, 或 者 说 这 个 块 是 此 异常 的 作用 域 。 换 言 之 ， 异 常 的 作用 域 是 此 


异常 覆盖 的 块 的 一 部 分 
现在 ， 你 可 以 展开 这 种 理解 (新 添加 的 语句 以 粗 体 显示 ) : 


示例 ch09 1b.sql 


<<outer block>> 


DECLARE 
у student id NUMBER := &sv student іа; 
у_пате VARCHAR2 (30) ; 
у total NUMBER (1); 
BEGIN 
SELECT RTRIM(first name) ||' '||RTRIM(last name) 


INTO v пате 
FROM student 
WHERE student іа = у student іа; 


DBMS_OUTPUT .PUT_LINE ('Student пате із ! | |у пате); 


<<іппег block>> 
ВЕСІМ 
SELECT COUNT (*) 
INTO v total 
FROM enrollment 
WHERE student іа = у student id; 


DBMS OUTPUT.PUT LINE ('Student is registered for '||у total||' course(s)'); 
EXCEPTION 
WHEN VALUE ERROR OR INVALID NUMBER 
THEN 
DBMS OUTPUT.PUT_LINE ('An error has occurred'); 
END; 
EXCEPTION 
WHEN МО DATA FOUND 
THEN 
DBMS _ OUTPUT .PUT LINE ('There is no such student'); 


END; 


示例 的 此 新 版 本 包括 一 个 内 层 块 。 此 块 具有 与 外 层 块 类 似 的 结构 ， 也 就 是 说 ， 它 有 一 个 SELECT INTO 语 句 和 用 来 处 理 错误 的 异常 部 分 。 当 在 内 层 块 
发 生 VALUE_ERROR 或 INVALID_NUMBER 错 误 时 ， 就 引发 此 异常 。 


注意 ， 异 剃 VALUE_ERROR 和 INVALID_NUMBER 是 仅 为 内 层 块 定义 的 。 因 此 ， 仪 当 它 们 在 内 层 块 引 友 时 才 会 得 到 处 理 。 如 果 这 些 错误 之 一 发 生 在 外 
层 块 ， 那 么 此 程序 将 无 法 成 功 结束 。 


与 此 相反 ， 异 常 NO_DATA_FOUND 已 经 在 外 层 块 定义 了 ， 因 此 ， 它 是 全 局 的 内 层 块 。 然 而 ， 这 个 版 本 的 示例 从 未 在 内 层 块 中 引 友 
NO_DATA_FOUND 异 常 。 你 认为 为 什么 会 是 这 样 的 情况 呢 ? 


你 知道 吗 ? 


如 果 在 一 个 块 中 定义 一 个 异常 ， 那 么 它 对 于 此 块 是 局 部 的 。 但 是 ， 它 对 于 由 此 块 封闭 的 任何 块 都 是 全 局 的 。 换 和 句 话说 ， 在 庶 套 块 的 情况 下 ， 在 外 层 
块 中 定义 的 任何 异常 对 于 其 内 层 块 都 是 全 局 的 。 


注意 ， 当 示例 被 更 改 为 异常 NO_DATA_FOUND 可 由 内 层 块 引 友 时 ,会友 生 什么 情况 (所 有 更 改 都 以 粗 体 显示 ) 。 


示例 ch09 1c.sq| 


BEGIN 
SELECT RTRIM (first пате) | |' '||RTRIM(last пате) 
INTO v пате 
FROM student 
WHERE student id = v student id; 


DBMS ООТРОТ.РОТ LINE ('Student name is '! | |у пате); 


<<inner block>> 
BEGIN 
SELECT 'Y' 
INTO v registered 
FROM enrollment 
WHERE student id = v student id; 


DBMS_OUTPUT.PUT_LINE ('Student is registered'); 


EXCEPTION 
WHEN VALUE ERROR OR INVALID NUMBER 
THEN 
DBMS OUTPUT.PUT LINE ('An error has occurred'); 
END; 
EXCEPTION 
WHEN NO DATA FOUND 
THEN 
DBMS _ OUTPUT .PUT LINE ('There is no such student'); 
END; 


示例 的 此 新 版 本 有 一 个 不 同 的 SELECT INTO 语 句 。 为 了 回答 前 面 提出 的 问题 ， 此 内 层 块 可 以 引 友 NO_DATA_FOUND 异 单 ， 这 是 因为 SELECT INTO 
语句 不 包含 组 函数 COUNT0。 这 个 函数 总 是 会 返回 一 个 结果 ， 所 以 当 9ELECT INTO 语 句 没 有 返回 行 时 ，COUNT (*) 返回 等 于 零 的 值 。 


现在 ， 考 虑 给 学 生 1D 提 供 284 的 值 时 ， 由 该 示例 产生 的 输出 : 


Student name is Salewa Lindeman 
There is no such student 


你 可 能 已 经 注意 到 ， 这 个 示例 只 产生 了 部 分 输出 。 尽 管 你 能 看 到 学 生 的 名 字 ， 但 显示 了 表明 该 学 生 不 存在 的 错误 消息 。 显 示 此 错误 消息 ， 是 因为 在 
内 层 块 中 引发 了 NO_DATA FOUNDRY. 


外 层 块 的 SELECT INTO 语 句 返 回 学 生 的 姓名 ， 这 然后 由 第 一 个 DBMS OUTPUT.PUT_LINE 语 句 显示 在 屏幕 上 。 接 着 ， 控 制 将 转 到 内 层 块 。 内 层 块 的 
SELECT INTO 语 句 不 返回 任何 行 。 因 此 ， 出 现 错误 并 引发 NO DATA FOUND 异常 。 


接 下 来 ，PL/SQL 试 图 在 内 层 块 中 找到 一 个 NO_DATA FOUND 异 常 的 处 理 程序 。 因 为 在 内 层 块 中 没有 这 样 的 处 理 程序 ， 所 以 控制 被 转 到 外 层 块 的 异 
常 部 分 。 外 层 块 的 异常 部 分 包含 NO DATA FOUND 异常 的 处 理 程序 。 因 此 ， 该 处 理 程序 执行 ， 并 且 消 息 “There is no such student” (没有 这 样 的 学 
生 ) 被 显示 在 屏幕 上 。 这 个 过 程 就 是 所 谓 的 异常 传播 ， 实 验 9.3 中 对 此 进行 了 详细 的 讨论 。 


请 注意 ， 这 里 提供 的 示例 仅 供 参考 。 当 前 这 个 版 本 并 不 是 非常 有 用 。 内 层 块 的 SELECT INTO 语 句 容易 引 友 男 一 个 异常 ，TOO_MANY_ROWS， 本 示 
例 没有 对 它 进行 处 理 。 此 外 ， 当 内 层 块 引发 NO_DATA_FOUND 异 常 时 ,错误 消息 “There is no such student” 是 不 恰当 的 摘 述 。 


9.2 30002: ВРЕ АЈ 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
“ 使 用 用 户 定义 的 异常 。 


你 通常 需要 在 你 的 程序 中 人 处理 特定 于 你 编写 的 程序 的 问题 。 例 如 ， 假 设 你 的 程序 要 求 用 户 输 入 学 生 ID 值 。 然 后 将 这 个 值 赋予 变量 v_student _id, 在 
此 程序 中 以 后 将 用 到 它 。 通 常 ， 你 想 要 的 ID 是 正 数 。 但 是 ， 如 果 用 尸 错误 地 输入 了 一 个 负数 ， 却 没有 友 生 错误 ， 这 是 因为 变量 v_student_id 已 被 定义 为 


一 个 数字 ， 并 且 用 户 已 提供 了 一 个 合法 的 数值 。 因 此 ， 你 可 能 要 实现 目 己 的 异 音 来 处 理 这 种 情况 。 


这 种 类 型 的 异常 被 称 为 用 户 定 义 的 异常 ， 因 为 它 是 由 程序 员 定 义 的 。 因 此 ， 在 这 样 的 异常 可 以 使 用 之 前 ， 必 须 将 其 声明 。 用 户 定 义 的 异常 是 在 一 个 
PL/SQL 块 的 声明 部 分 声明 的 ， 如 清单 9-1 所 示 。 


清单 9-1 用 户 定 义 异 弟 的 声明 


DECLARE 
异常 名 称 EXCEPTION; 


请 注意 ， 这 个 声明 看 起 来 类 似 于 一 个 变量 声明 。 也 束 是 说 ， 你 指定 一 个 异常 名 称 ， 后面 罕 跟着 关键 字 EXCEPTION。 


考虑 下 面 的 代码 片段 


示例 


DECLARE 
e invalid id EXCEPTION; 


在 此 代码 片段 中 ， 异 常 的 名 称 是 用 字母 “e” 作 为 前 综 的 ， 虽 然 这 不 是 语法 必需 的 ,但 是 ， 它 可 以 让 你 的 变量 名 和 异常 名 有 所 区 分 。 


一 旦 异常 被 声明 ， 束 可 在 块 的 异常 处 理 部 分 中 指定 与 此 异常 相关 联 的 可 执行 语句 。 异 常 处 理 部 分 的 格式 与 内 置 异 常 是 一 样 的 。 考 虑 下 面 的 代码 片 


示例 


DECLARE 
e invalid id EXCEPTION; 
BEGIN 


EXCEPTION 
WHEN е _ invalid id 
THEN 
DBMS OUTPUT .PUT 1ІМЕ ('Ап ID cannot be negative'); 
END; 


你 已 经 知道 ， 内 置 异 常 是 隐 式 地 引发 的 。 换 句 话 说 ， 当 特定 的 错误 发 生 时 ， 与 该 错误 有 关 的 一 个 内 置 异 常 就 会 被 引发 。 当 然 ， 这 里 假设 你 已 经 在 程 
序 的 异常 处 理 部 分 包含 了 这 个 异常 。 例 如 ， 当 SELECT INTO 语 句 返 回 多 行 时 引发 一 个 TOO MANY ROWS 异 常 。 


用 户 定 义 的 异常 必须 被 显 式 地 引 友 。 换 句 话说 ， 你 需要 在 你 的 程序 中 指定 ， 在 哪些 情况 下 必须 引 友 异常 ， 如 清单 9-2 所 示 。 


清单 9-2 引 友 一 个 用 尸 定 义 的 异常 


DECLARE 
异常 名 称 EXCEPTION; 
BEGIN 


ТЕ Ф 
THEN 
RAISE 异常 名 称 ; 
END IF; 


EXCEPTION 
WHEN 异常 名 称 
THEN 
错误 处 理 语句 ; 
END; 


在 这 种 结构 中 ， 必 须 引 帮 用 户 定义 的 异 音 的 情况 下 都 是 借助 于 IF 语句 确定 的 。 如 果 条 件 的 计算 结果 为 TRUE， 则 借助 RAISE 语 句 引发 一 个 用 户 定 义 的 
异常 。 如 果 条 件 的 计算 结果 为 FALSE， 则 程序 继续 其 正常 运行 。 换 句 话说 ， 崇 跟着 IF 语 句 的 语句 被 执行 。 需 要 注意 的 是 ， 任 何 形式 的 IF 语 句 都 可 用 于 检查 


何 时 必须 引发 一 个 用 户 定 义 的 异常 。 
在 下 面 这 个 基于 本 实验 较 早 提供 的 代码 片段 的 示例 中 ， 你 会 看 到 ， 当 用 户 为 变量 v_ student id 输 入 一 个 负数 时 ， 区 会 引 友 e_invalid_id 异 常 。 
示例 ch09 2a.sql 


DECLARE 
v student id STUDENT .STUDENT ID%TYPE := &sv student id; 
у total courses NUMBER; 
е invalid іа ЕХСЕРТІОМ; 
BEGIN 
IF у student іа < 0 
THEN 
RAISE е invalid id; 
END IF; 


SELECT COUNT (*) 
INTO v total courses 
FROM enrollment 
WHERE student id = v student id; 


DBMS _ OUTPUT .PUT _ LINE ('The student is registered for'||v total courses||'courses'); 
DBMS OUTPUT.PUT_LINE ('No exception has been raised'); 


EXCEPTION 
WHEN e_invalid id 
THEN 
DBMS OUTPUT .PUT LINE ('Ап ID cannot be negative'); 
END; 


在 这 个 示例 中 ， 异 常 e invalid id 借助 |F 语 句 被 引发 。 一 旦 提供 了 变量 v_ student id 的 值 ， 这 个 数字 值 的 正 负 性 就 会 被 检查 。 如 果 该 值 小 于 零 ， 则 IF 
语句 的 计算 结果 为 TRUE， 并 且 引 发 e_invalid_id 异 常 。 反 过 来 ， 控 制 将 转 到 块 的 异常 处 理 部 分 。 然 后 ， 执 行 与 此 异常 相关 联 的 语句 。 在 这 种 情况 下 ， 将 在 
屏幕 上 显示 消息 “An ID cannot be negative” (ID 不 能 为 负 ) 。 如 果 该 v_student_id 输 入 的 值 是 正 的 ， 则 IF 语 句 产生 FALSE， 并 且 执 行 块 体 中 的 其 余 语 
п), 


考虑 分 别 用 两 个 v_student _id 值 ，102 和 -102 来 执行 这 个 示例 。 本 示例 的 第 一 次 运行 (学 生 ID 是 102) 将 产生 以 下 的 输出 : 


The student is registered for 2 courses 
No exception has been raised 


对 于 此 次 运行 ， 用 户 为 变量 v_student id 提供 了 一 个 正 值 。 因 此 ，IF 语 句 的 计算 结果 为 FALSE， 并 且 SELECT INTO 语 句 确定 在 IDENROLLMENT 表 中 
给 定 的 学 生 有 多 少 记录 。 接 着 ， 在 屏幕 上 显示 消息 “The student is registered for 2 courses” #0 “No exception has been raised”。 此 时 ,PL/SQL 
块 的 块 体 已 经 执行 完毕 。 


该 示例 的 第 二 次 运行 (学 生 ID 是 -102) 将 产生 以 下 的 输出 : 


An ID cannot be negative 


对 于 此 次 运行 ， 用 户 为 变量 v_student id 输 入 了 一 个 负 值 。IF 语 句 的 计算 结果 为 TRUE， 并 引 友 e_invalid_id 异 常 。 因 此 ， 执 行 的 控制 将 转 到 块 的 异常 
处 理 部 分 ， 并 且 在 屏幕 上 显示 消息 “An ID cannot be negative” 。 


O-+5 RAISE 语 多 应 该 与 IF 语句 一 起 使 用 。 否 则 ， 每 次 执行 时 ， 执 行 的 控制 都 会 被 转 到 块 的 异常 处 理 部 分 。 考 虑 下 面 的 示例 : 


DECLARE 

e test_exception EXCEPTION; 
BEGIN 

DBMS _ OUTPUT .PUT LINE ('Exception has not been raised'); 

RAISE e test exception; 

DBMS OUTPUT.PUT LINE ('Exception has been raised'); 
EXCEPTION 

WHEN е _ test _ exception 

THEN 

DBMS ООТРОТ.РОТ LINE ('Ап error has occurred'); 

END; 


本 示例 每 次 运行 时 ， 都 将 产生 下 面 的 输出 : 


Exception has not been raised (异常 未 被 引发 ) 
An error has occurred (发 生 了 错误 ) 


尽管 没有 发 生 错 误 ， 控 制 还 是 转 到 了 异常 处 理 部 分 。 在 引发 与 某 个 错误 相关 联 的 异常 之 前 ， 必 须 检 查 是 否 发 生 了 此 错误 。 


适用 于 用 户 定 义 异 常 的 作用 域 规则 与 适用 于 内 置 异 常 的 作用 域 规 则 是 相同 的 。 在 内 层 块 中 声明 的 异常 ， 必 须 在 内 层 块 中 引 友 ， 并 且 必 须 在 内 层 块 的 
异常 处 理 部 分 中 定义 。 考 虑 下 面 的 示例 : 


示例 ch09 3a.sq| 


outber: рІоскК>> 
BEGIN 
DBMS OUTPUT.PUT LINE ('Outer block'); 


<<inner block>> 
DECLARE 

е my exception EXCEPTION; 
BEGIN 

DBMS OUTPUT.PUT LINE ('Inner block'); 
EXCEPTION 

ИНЕМ е my exception 

THEN 

DBMS OUTPUT .PUT LINE ('An error has occurred'); 

END; 


IF 10 > &SV number 
THEN 
RAISE e my exception; 
END IF; 
END; 


在 本 示例 中 ， 异 常 e_ my _exception 是 在 内 层 块 中 声明 的 。 但 是 ， 你 正 试图 在 外 层 块 引 友 这 个 异常 。 这 个 示例 会 导致 一 个 语法 错误 ， 因 为 一 旦 内 层 块 
终止 ， 在 内 层 块 中 声明 的 异常 就 停止 存在 。 因 此 ， 在 运行 时 为 本 示例 提供 11 的 值 时 ， 它 将 产生 如 下 输出 : 


ORA-06550: line 19, column 13: 
PLS-00201: identifier 'E MY EXCEPTION' must be declared 


ORA-06550: line 19, column 7: 
PL/SQL: Statement ignored 


注意 ， 错 误 消 息 
PLS-00201: identifier 'Е MY EXCEPTION' must be declared 


是 当 你 尝试 使 用 尚未 声明 的 变量 时 得 到 的 同样 的 错误 消息 。 


93 20193: 异常 传播 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
:了解 异常 传播 。 
重新 引发 异常。 


我 们 已 经 看 到 了 在 PL/SQL 块 的 可 执行 部 分 友 生 运行 时 错误 时 ， 如 何 引 友 不 同类 型 的 异 弟 。 然 而 ， 运 行 时 错误 也 可 能 发生 在 块 的 声明 部 分 或 块 的 异常 
处 理 部 分 。 管 理 在 这 些 情况 下 如 何 引 友 异 党 的 规则 被 称 为 异常 传播 。 


第 一 种 情况 是 在 PHSQL 抉 的 可 执行 部 分 友 生 运行 时 错误 。 这 种 情况 应 被 视 为 复习 ， 因 为 在 本 章 前 面 给 出 的 示例 已 经 说 明了 当 块 的 可 执行 部 分 友 生 错 
误 时 ， 将 如 何 引 友 异 常 。 


如 果 有 一 个 特定 的 异常 与 特定 错误 相关 联 ， 那 么 控制 转 到 块 的 异常 处 理 部 分 。 一 旦 与 异常 相关 联 的 语句 被 执行 ， 控 制 就 转 到 主机 环境 或 封闭 块 。 如 
果 此 错误 没有 异常 处 理 程序 ， 那 么 异常 被 传播 到 封闭 块 (外 层 块 ) 。 然 后 重复 进行 刚才 描述 的 步骤 。 如 果 没 有 发现 异常 处 理 程序 ， 该 程序 束 停 止 执 行 ， 
并 且 控 制 被 转 到 主机 环境 。 


其 次 ， 考 虑 第 二 种 情况 ， 在 块 的 声明 部 分 友 生 运行 时 错误 。 如 果 没 有 外 层 块 ， 该 程序 束 停 止 执 行 ， 并 且 控 制 转 到 主机 环境 。 考 虑 下 面 的 示例 : 


示例 ch09 4a.sql 


DECLARE 

у test var CHAR (3) := 'ABCDE'; 
BEGIN 

DBMS OUTPUT .PUT LINE ('This is a test'). 
EXCEPTION 

WHEN INVALID NUMBER OR VALUE ERROR 

THEN 

DBMS OUIPUIT .PUT LINE ('An error has occurred'); 

END; 


在 执行 时 ， 这 个 示例 产生 下 面 的 输出 : 


ORA-06502: PL/SQL: numeric or value error: character string buffer too small 
ORA-06512: at line 2 


在 这 个 示例 中 ， 块 的 声明 部 分 中 的 赋值 语句 造成 错误 。 尽 管 这 样 的 错误 存在 一 个 异常 处 理 程序 ， 此 块 还 是 无 法 成 功 执行 。 根 据 这 个 示例 ， 你 可 以 得 
出 结论 ， 如 果 在 PL/SQL 块 的 声明 部 分 中 发 生 运 行 时 错误 ， 那 么 这 个 块 的 异常 处 理 部 分 是 不 能 捕获 此 错误 的 。 


接 下 来 ， 考 虑 同样 的 示例 采用 嵌 套 PL/SQL 块 的 修改 版 本 (更 改 以 粗 体 显示 ) 。 


示例 ch09 4b.sql 


<<outer block>> 
BEGIN 
<<іппег block>> 
DECLARE 
v_test_var CHAR (3) := 'ABCDE'; 
BEGIN 
DBMS OUTPUT.PUT_LINE ('This is а test'); 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
DBMS OUTPUT .PUT LINE ('An error has occurred in the inner block'); 
END; 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
DBMS OUTPUT.PUT LINE ('An error has occurred in the program'); 
END; 


在 执行 时 ， 这 个 示例 产生 下 面 的 输出 : 


An error has occurred in the program 


在 此 版 本 的 示例 中 ，PL/SQL 程 序 块 被 另 一 个 块 封闭 ， 并 且 此 程序 是 能 够 完成 的 。 在 这 种 情况 下 ， 当 内 层 块 的 声明 部 分 中 友 生 错误 时 ,会 引 友 在 外 层 
块 定义 的 异常 。 因 此 ， 可 以 得 出 结论 ， 当 内 层 块 的 声明 部 分 中 友 生 运行 时 错误 时 ， 异 党 立即 传播 到 封闭 (外 层 ) Ж. 


最 后 ， 考 虑 第 三 种 情况 ， 在 块 的 异 弟 处 理 部 分 友 生 运行 时 错误 。 正 如 前 面 的 情况 ， 如 果 没 有 外 层 块 ， 程 序 就 停止 执行 ， 并 且 控 制 转 到 主机 环境 。 考 
虑 下 面 的 示例 : 


示例 ch09 5a.sql 


DECLARE 
v test var CHAR(3) := 'АВС'; 
BEGIN 
у test var := '1234'; 
DBMS OUTPUT.PUT LINE ('у test var: '||v test уаг); 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
v test уаг := 'ABCD'; 
DBMS OUTPUT .PUT LINE ('Ап error has оссиггеа'); 
END; 


在 执行 时 ， 这 个 示例 产生 下 面 的 输出 : 


ORA-06502: PL/SQL: numeric or value error: character string buffer too small 
ORA-06512: at line 9 
ORA-06502: PL/SQL: numeric or value error: character string buffer too small 


正如 你 所 看 到 的 ， 在 块 的 执行 部 分 中 赋值 语句 导致 错误 。 反 过 来 ， 控 制 被 转移 到 块 的 异常 处 理 部 分 。 然 而 ， 块 的 异常 处 理 部 分 中 的 赋值 语句 也 引起 
了 同样 的 错误 。 因 此 ， 本 示例 的 输出 显示 了 两 次 相同 的 错误 消息 。 第 一 个 消息 是 由 块 的 可 执行 部 分 的 赋值 语句 产生 的 ， 而 第 二 个 消息 是 由 块 的 异常 处 理 
部 分 的 赋值 语句 产生 的 。 根 据 这 个 示例 ， 你 可 以 得 出 结论 ， 在 PL/SQL 块 的 异常 处 理 部 分 中 友 生 运行 时 错误 时 ， 这 个 块 的 异常 处 理 部 分 不 能 阻止 此 错误 。 


接 下 来 ， 考 虑 相同 的 示例 市 有 抱 套 PL/SQL 块 的 修改 后 版 本 〈 受 影响 的 语句 以 粗 体 显示 ) : 


示例 ch09 5b.sql 


<<outer block>> 


BEGIN 
<<inner block>> 
DECLARE 
у севе var CHAR(3) := 'АВС'; 
BEGIN 
v севе уак := '1234'; 
DBMS _ OUTPUT .PUT LINE ('у test _ var: '||v test var) ; 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
у test var := 'ABCD'; 
DBMS OUTPUT .PUT LINE ('An error has occurred in the inner block'); 
END; 
EXCEPTION 
WHEN INVALID NUMBER OR VALUE ERROR 
THEN 
DBMS OUTPUT.PUT LINE ('An error has occurred in the program'); 
END; 


在 执行 时 ， 该 版 本 将 产生 下 面 的 输出 : 


An error has occurred in the program 


在 此 版 本 的 示例 中 ，PLSQL 程 序 块 由 另 一 个 块 封 玉 ， 并 且 该 程序 能 够 完成 。 在 这 种 情况 下 ， 当 内 层 块 的 异 音 处 理 部 分 中 友 生 错误 时 ， 会 引 友 在 外 层 
块 定义 的 异常 。 因 此 ， 可 以 得 出 结论 ， 当 内 层 块 的 异常 处 理 部 分 发 生 运 行 时 错误 上 时， 异常 会 立即 传播 到 封闭 它 的 块 。 


在 前 面 的 两 个 示例 中 ， 异 常 都 是 由 此 块 的 异常 处 理 部 分 中 的 运行 时 错误 隐 合 地 引 友 的 。 然 而 ， 异 常 也 可 以 由 RAISE 语 句 显 式 地 在 此 块 的 异常 处 理 部 分 
中 引 友 。 考 虑 下 面 的 示例 : 


示例 ch09 6a.sd| 


<<0üter Б1осК>> 
DECLARE 
e_exception1 EXCEPTION; 
e exception2 EXCEPTION; 
BEGIN 
<<inner block>> 
BEGIN 
RAISE е exceptionl; 
EXCEPTION 
WHEN е ехсерС1оп1 
THEN 
RAISE е except1on2 ; 
WHEN е exception2 
THEN 
DBMS OUTPUT.PUT_LINE ('An error has occurred in the inner block'); 
END; 
EXCEPTION 
WHEN e_exception2 
THEN 
DBMS OUTPUT .PUT LINE ('An error has occurred in the program'); 
END; 


该 示例 将 产生 下 面 的 输出 : 
An error has occurred in the program 
此 块 的 声明 部 分 包含 两 个 异常 ，e_exception1 和 e_exception2 的 声明 。 异 常 e exception1 在 内 层 块 通过 RAISE 语 句 引 友 。 在 内 层 块 的 异常 处 理 部 


分 ，e_exception1 试 图 引发 e exception2。 尽 管内 层 块 存在 e_ exception2 的 异常 处 理 程序 ， 但 控制 仍 转移 到 外 层 块 。 这 是 因为 只 可 以 在 块 的 异常 处 理 部 
分 中 引发 一 个 异常 。 只 有 当 一 个 异常 被 处 理 后 ， 才 可 以 引发 另外 的 异常 ， 但 不 能 同时 引发 两 个 或 多 个 异常 。 此 执行 流程 如 图 9-1 所 示 。 


-- outer block 
DECLARE 


е ехсеріёіоп1 EXCEPTION; 
е ехсерііоп2 EXCEPTION; 
BEGIN 
-- inner block 
BEGIN 
RAISE е exceptionl; 
| ЕХСЕРТТОМ 
WHEN е ехсерііоп1 
THEN 


WHEN е exception2 


这 部 分 代码 不 会 执行 THEN 
DBMS_OUTPUT.PUT_LINE (`Ап error has occurred in the inner block’); 


END ; 
EXCEPTION 


END ; 


图 9-1 示例 ch09_6a.sql 的 执行 流 


实质 上 ， 当 异常 e exception2 在 内 层 块 的 异常 处 理 部 分 中 被 引 友 时 ， 它 不 能 在 同一 异常 处 理 部 分 中 被 处 理 。 因 此 ， 由 矩形 括号 包围 的 部 分 代码 永远 
不 会 执行 。 相 反 ， 控 制 将 转 到 外 层 块 的 异常 处 理 部 分 ， 并 且 在 屏幕 上 显示 “An error has occurred in the program” 的 消息 。 

Os 当 一 个 异常 在 不 具有 适当 的 异种 处 理 机 制 ， 并 且 不 被 另 一 个 块 包 围 的 PLVSQL 块 中 引发 时 ， 控 制 被 转移 到 主机 环境 ， 此 程序 不 能 够 成 功 地 
完成 。 下 面 的 代码 片段 说 明了 这 种 情况 : 


DECLARE 
е ехсерС1оп1 EXCEPTION; 


BEGIN 
RAISE е ехсерС1оп1; 


END ; 


ORA-06510: PL/SQL: unhandled user-defined exception 
ORA-06512: at line 4 


请 注意 ， 此 行为 也 适用 于 内 置 异 常 ， 参 见 第 8 章 。 
重新 引发 异常 


在 某 些 情 况 下 ， 你 可 能 希望 能 够 当 友 生 某 种 类 型 的 错误 时 ， 停 止 你 的 程序 。 换 句 话说 ， 你 可 能 要 处 理 内 层 块 中 的 异常 ， 然 后 把 它 传递 给 外 层 块 。 这 
个 过 程 被 称 为 重新 引 友 异常 。 下 面 的 示例 有 助 于 说 明 这 一 点 : 


示例 ch09 7a.sq| 


<<оџсег р1ІосК>> 
DECLARE 
е exception EXCEPTION; 
BEGIN 
<<inner block>> 
BEGIN 
RAISE е exception; 
EXCEPTION 
WHEN e_exception 
THEN 
RAISE; 
END; 
EXCEPTION 
WHEN e_exception 
THEN 
DBMS _OUTPUT.PUT_LINE ('An error has occurred'); 
END; 


在 本 例 中 ， 异 常 e_exception 首 先 在 外 层 块 声明 ， 然 后 在 内 层 块 引发 。 因 此 ， 控 制 被 转移 到 内 层 块 的 异常 处 理 部 分 。 在 块 的 异常 处 理 部 分 的 RAISE 语 
导致 此 异常 传播 到 外 层 块 的 异常 处 理 部 分 。 注 意 ， 当 RAISE 语 句 用 于 内 层 块 的 异常 处 理 部 分 时 ， 它 后 面 不 带 异常 名 称 。 


在 运行 时 ， 此 示例 将 产生 下 面 的 输出 : 


An error has occurred 


Oza 当 一 个 异常 在 不 被 任何 其 他 块 包围 的 块 中 被 重新 引发 时 ， 程 序 就 无 法 成 功 完成 。 考 虑 下 面 的 示例 : 


DECLARE 

e exception EXCEPTION; 
BEGIN 

RAISE е exception; 
EXCEPTION 

WHEN e_exception 

THEN 

RAISE; 

END; 


在 运行 时 ， 此 示例 将 产生 下 面 的 输出 : 


ORA-06510: PL/SQL: unhandled user-defined exception 
ORA-06512: at line 7 


94 Ма 
在 本 草 ， 我 们 了 解 了 异 弟 的 作用 域 和 传播 ， 并 且 学 到 了 如 何 定 义 和 引 友 上 自 己 的 异常 。 此 外 ， 我 们 还 学 会 了 如 何 重新 引 友 异常 。 在 第 10 草 ， 你 将 学 习 
如 何 借助 Oracle 的 内 置 功能 SQLCODE 和 SQLERRM ， 在 你 的 代码 中 产生 有 意义 的 错误 报告 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 

. RAISE_APPLICATION_ERROR 
. EXCEPTION_INIT 编 译 指示 

. SQLCODE 和 SQLERRM 


在 第 8 章 和 第 9 草 ， 我 们 学 到 了 错误 处 理 ， 以 及 内 置 异 常 和 用 户 定 义 的 异 弟 的 概念 。 我 们 还 了 解 了 支配 异常 作用 域 、 传 播 ， 以 及 如 何 重新 引 友 异常 的 
规则 。 


在 本 章 ， 我 们 将 用 高 级 课题 研究 来 完成 对 错误 处 理 和 异常 的 探讨 。 通 过 本 章 的 学 习 ， 你 将 能 够 把 一 个 错误 号 与 错误 消息 相关 联 ， 从 而 能 够 在 有 
Oracle 错 误 号 ， 但 没有 可 用 来 引用 错误 的 名 称 时 捕获 运行 时 错误 。 


10.1 实验 1: RAISE APPLICATION ERROR 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 RAISE_APPLICATION_ERROR。 


RAISE_APPLICATION_ERROR 是 Oracle 提 供 的 一 个 特殊 的 内 置 过 程 。 它 允许 程序 员 为 特定 应 用 程序 创建 有 意义 的 错误 消息 。 
RAISE_APLICATION_ERROR 过 程 适用 于 用 户 定义 的 异常 ， 它 的 语法 如 清单 10-1 所 示 。 


清单 10-1 RAISE APPLICATION ERROR 过 程 的 两 种 形式 


RAISE APPLICATION ERROR (error number, error message); 


或 


RAISE APPLICATION_ERROR (error number, error message, keep errors); 


正如 你 所 看 到 的 ， 存 在 两 种 形式 的 RAISE_APPLICATION_ERROR 过 程 。 第 一 种 形式 只 包含 两 个 参数 : error number 和 error_message。 
error_number 是 程序 员 用 来 与 特定 错误 消息 相关 联 的 错误 编号 ， 它 的 取 值 范围 可 以 从 -20999 至 -20000。error_message 是 错误 的 文本 ， 它 最 多 可 包 合 
2048 个 字符 。 


RAISE APPLICATION ERROR 的 第 二 种 形式 包含 一 个 额外 的 参数 : keep_errors。 这 是 一 个 可 选 的 布尔 参数 。 如 果 keep_ errors 被 设置 为 TRUE， 则 
新 的 错误 将 被 添加 到 已 经 引发 的 错误 列表 中 。 错 误 的 这 个 列表 被 称 为 错误 栈 。 如 果 keep_errors 被 设置 为 FALSE， 则 新 的 错误 将 代 蔡 错误 堆栈 。 参 数 
keep_errors 的 默认 值 是 FALSE。 


RAISE_APPLICATION_ERROR 过 程 适用 于 未 命名 的 用 户 定义 的 异常 。 也 就 是 说 ， 它 用 错误 文本 关联 了 错误 号 。 反 过 来 ， 用 户 定义 的 异常 不 具有 与 之 
相关 联 的 名 称 。 


考虑 在 第 9 章 中 使 用 的 以 下 示例 ，ch09 _2a.sql。 这 个 示例 说 明了 如 何 使 用 命名 的 用 户 定义 异常 和 RAISE 语 句 。 将 此 示例 与 使 用 未 命名 的 用 户 定义 异常 
和 RAISE_ APPLICATION ERROR 过 程 的 修改 后 的 版 本 作 比 较 。 命 名 的 用 户 定 义 异 常 和 RAISE 语 句 以 粗 体 显 示 。 


示例 ch10_1a.sql (第 9 章 ， 示 例 ch09 2a.sql) 


DECLARE 


у student іа STUDENT .STUDENT Ір$%ТҮРЕ := &5у _ student іа; 
v_total_ courses NUMBER; 
е _ invalid іа EXCEPTION; 
BEGIN 
IF v_student_id < 0 
THEN 
RAISE e invalid id; 
END IF; 


SELECT COUNT (*) 
INTO у total courses 
FROM enrollment 
WHERE student id = v_student_id; 


DBMS OUTPUT.PUT_LINE ('The student is registered for'||v total courses||' courses'); 
DBMS OUTPUT .PUT LINE ('No exception has been raised'); 
EXCEPTION 


WHEN е _ invalid id 
THEN 


DBMS_OUTPUT.PUT_LINE ('Ап ID cannot be negative'); 
END; 


现在 ， 查 看 修改 后 的 示例 ( 受 影响 的 语句 以 粗 体 显 示 ) : 
示例 ch10 1b.sql 


DECLARE 


V_Student іа STUDENT . STUDENT ID%TYPE := &sv student іа; 
у total courses NUMBER; 
BEGIN 


IF v student id < 0 
THEN 


RAISE APPLICATION ERROR (-20000, 'Ар ID cannot be negative'); 
END IF; 


SELECT COUNT (*) 
INTO у total courses 
FROM enrollment 
WHERE student id = v student id; 


DBMS OUTPUT.PUT LINE ('The student is registered for'||v_total_courses ||'courses'); 
END; 


本 示例 的 第 二 个 版 本 不 包括 此 异常 的 名 称 、RAISEi 语 句 ， 或 PL/SQL 块 的 错误 处 理 部 分 。 相 反 ， 它 只 有 一 个 单独 的 RAISE APPLICATION ERROR 语 
句 。 


你 知道 吗 ? 


尽管 RAISE_APPLICATION_ERROR 是 一 个 内 置 过 程 ， 但 它 在 PL/SQL 块 中 使 用 时 被 作为 语句 引用 。 


两 个 版 本 的 示例 都 能 实现 相同 的 结果 : 如 果 为 变量 v_student _id 提 供 了 一 个 负 值 ， 则 处 理 停止 。 但 是 ， 本 示例 的 第 二 个 版 本 产生 具有 错误 消息 观感 的 
输出 。 


现在 ,使 用 -4 作为 变量 v_student _id 的 值 来 运行 两 个 版 本 的 示例 。 此 示例 的 第 一 个 版 本 将 产生 以 下 的 输出 : 
An ID cannot be negative 
此 示例 的 第 二 个 版 本 产生 以 下 的 输出 : 


ORA-20000: An ID cannot be negative 
ORA-06512: at line 7 


此 示例 的 第 一 个 版 本 产生 的 输出 包含 错误 消息 “An ID cannot be negative” 。 示 例 的 第 二 个 版 本 产生 的 相同 错误 消息 类 似 于 由 系统 生成 的 错误 消 
息 ， 因 为 错误 消息 之 前 有 错误 号 ORA-20000。 此 外 ， 请 注意 ， 当 你 在 SQL Developer 中 运行 这 些 示 例 时 ， 由 示例 的 第 一 个 版 本 产生 的 错误 消息 出 现在 
DBMS 输 出 窗口 ， 而 由 示例 的 第 二 个 版 本 产生 的 相同 错误 消息 出 现在 脚本 输出 窗口 。 


RAISE_APPLICATION _ERROR 过 程 也 可 以 用 于 内 置 异常 。 考 虑 下 面 的 示例 : 
示例 ch10 2a.sq| 


DECLARE 
у student іа STUDENT.STUDENT ID%TYPE := &sv student id; 
у_пате VARCHAR2 (50); 
BEGIN 
SELECT first пате | |' '||last_name 
INTO v пате 
FROM student 
WHERE student id = v student id; 
DBMS OUTPUT.PUT LINE (у пате); 
EXCEPTION 
WHEN NO DATA FOUND 
THEN 
RAISE APPLICATION ERROR (-20001, 'This ID is invalid'); 
END; 


当 用 户 为 学 生 ID 输 入 100 时 ， 本 示例 生成 以 下 的 输出 : 


ORA-20001: This ID is invalid 
ORA-06512: at line 13 


内 置 异 常 NO_DATA_FOUND 被 引 友 ， 因 为 在 STUDENT 表 没有 对 应 于 这 个 学 生 ID 值 的 记录 。 但 是 ,错误 消息 的 编号 不 指向 异常 
МО РАТА FOUND, 相反 ， 显 示 的 错误 消息 是 “This ID is invalid” (这 个 ID 无 效 ) 。 


RAISE APPLICATION_ERROR 过 程 允 许 程序 员 采 取 与 Oracle 错 误 一 致 的 方式 返回 错误 消息 。 但 是 ， 错 误 号 和 错误 消息 之 间 的 关系 是 由 程序 员 来 维护 
的 。 例 如 ， 你 设计 了 一 个 应 用 程序 来 维护 学 生 的 注册 信息 。 在 这 个 应 用 程序 中 ， 你 将 错误 文本 “This ID is invalid” 与 错误 号 ORA-20001 相 关联 。 你 的 
应 用 程序 可 以 为 任何 无 效 的 ID 使 用 此 错误 消息 。 一 旦 你 将 错误 号 (ОКА-20001) 与 特定 的 错误 消息 (“This ID is invalid” ) 相关 联 ， 你 融 不 应 该 把 此 
昔 误 号 指定 给 另 一 个 错误 消息 。 如 果 你 不 维护 错误 号 和 错误 消息 之 间 的 关系 ， 那 么 你 的 应 用 程序 的 错误 处 理 界面 可 能 会 给 用 户 和 自己 造成 很 大 的 混乱 。 


10.2 ”实验 2: EXCEPTION INIT 编译 指示 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 EXCEPTION_INIT 编 译 指示 。 


你 的 程序 需要 处 理 的 Oracle 错 误 通 常 具 有 与 之 相关 联 的 特定 号 码 ， 但 缺少 可 以 用 来 引用 它 的 名 称 。 在 这 种 情况 下 ， 你 不 能 编写 一 个 处 理 程序 来 捕获 
这 个 错误 ， 但 你 可 以 使 用 一 个 叫做 编译 指示 (pragma) 的 结构 来 处 理 此 异常 。 编 译 指示 是 一 个 特殊 的 PL/SQL 编 译 器 指令 ， 它 是 在 编译 的 时 候 处 理 的 。 
EXCEPTION _INIT 编 译 指示 可 以 让 你 将 Oracle 错 误 号 与 用 户 定 义 的 错误 名 称 相关 联 。 一 旦 将 一 个 错误 名 称 与 Oracle 错 误 号 相关 联 ， 你 就 可 以 引用 此 错误 
并 为 它 编写 处 理 程序 。 


出 现在 一 个 块 的 声明 部 分 的 EXCEPTION INIT 编 译 指示 如 清单 10-2 所 示 。 


清单 10-2 将 EXCEPTION INIT 编 译 指示 与 用 户 定义 的 异常 相关 联 


DECLARE 
exception name EXCEPTION; 
PRAGMA EXCEPTION INIT (exception пате, error code); 


注意 ， 用 户 定 义 的 异 单 的 声明 出 现在 EXCEPTION_INIT 编 译 指示 被 使 用 的 位 置 乙 前 。EXCEPTION_INIT 编 译 指 示 有 两 个 参数 : exception пате 


еггог code。exception_name 是 你 的 异常 的 名 称 ，error_code 是 要 与 你 的 异常 相关 联 的 Oracle 错 误 号 。 考 虑 下 面 的 示例 : 


示例 ch10 3a.sql 


DECLARE 
v zip ZIPCODE.ZIPSTYPE := '&sv 71р'; 
BEGIN 


DELETE FROM zipcode 
WHERE zip = у zip; 


DBMS OUTPUT .PUT LINE ('Zip '||v zip||' has been deleted'); 
COMMIT; 
END; 


在 本 示例 中 ， 对 应 于 用 户 提供 的 邮政 编码 值 的 记录 被 从 ZIPCODE 表 中 删除 。 接 着 ， 将 在 屏幕 上 显示 某 个 特定 的 邮政 编码 已 被 删除 的 消息 。 
看 一 下 当 用 户 在 这 个 示例 中 输入 06870 的 v_zip 值 时 所 产生 的 结果 : 


ORA-02292: integrity constraint (SITUDENI .STU ZIP FK)violated - child record found 
ORA-06512: at line 4 


本 示例 之 所 以 产生 这 个 错误 消息 ， 是 因为 你 正 试图 从 ZIPCODE 表 删除 一 条 记录 ， 而 在 STUDENT 表 中 存在 其 子 记 录 ， 从 而 违反 了 参照 元 整 性 约束 
STU_ZIP_FK。 换 名 话说， 在 学 生 表 (FTR) 中 有 一 个 市 外 键 (STU_ZIP_FK) 的 记录 引用 了 ZIPCODE 表 (529) 中 的 一 条 记录 。 


此 错误 具有 赋予 它 的 Oracle 错 误 号 ORA-02292， 但 它 没有 名 字 。 为 了 在 脚本 中 处 理 这 种 错误 ， 你 需要 将 错误 号 与 用 户 定 义 的 异常 相关 联 。 
假设 你 将 示例 作 如 下 修改 (所 有 更 改 以 粗 体 显示 ) : 
示例 ch10 3b.sql 


DECLARE 
у_21р ZIPCODE.ZIP%ŚTYPE := '&ву_71р'; 
e child exists EXCEPTION; 
PRAGMA EXCEPTION INIT(e child exists, -2292); 
BEGIN 
DELETE FROM zipcode 
WHERE zip = у 21р; 


DBMS OUTPUT .PUT LINE ('7ір '||v zip||' has been deleted'); 
COMMIT; 
EXCEPTION 
WHEN e child exists 
THEN 
DBMS OUTPUT.PUT_LINE ('Delete students for this ZIP code first'); 
END; 


在 这 个 版 本 的 脚本 中 ， 声 明了 异常 e_child_exists。 然 后 ， 此 异常 与 错误 号 -2292 相 关联 。 请 注意 ， 你 不 在 EXCEPTION_INIT 编 译 指示 中 使 用 ORA- 
02292。 接 下 来 ， 你 将 异常 处 理 部 分 添加 到 PL/SQL 块 中 ， 从 而 捕获 这 个 错误 。 


你 有 没有 注意 到 ， 尽 管 异常 e_child_exists 是 一 个 用 户 定义 的 异常 ， 但 你 却 没有 如 你 在 第 9 章 那 样 使 用 RAISEi 语 句 ? 这 是 因为 你 已 经 把 用 户 定义 的 异常 
与 特定 的 Oracle 错 误 号 关联 了 。 回 想 一 下 ， 即 使 一 个 Oracle 异 常 有 与 之 相关 联 的 编号 ， 它 也 必须 在 异常 处 理 部 分 中 由 它 的 名 称 来 引用 。 因 为 Oracle 错 误 
号 -2292 没 有 与 之 相关 联 的 名 字 ， 所 以 你 通过 EXCEPTION INIT 编 译 指 示 来 明确 执行 这 个 关联 。 

当 你 使 用 相同 的 邮政 编码 值 来 运行 这 个 版 本 的 示例 时 ， 它 将 产生 以 下 的 输出 : 


Delete students for this zipcode first 
该 输出 包含 由 DBMS _ OUTPUT.PUT_LINE 语 句 显示 的 一 个 新 错误 消息 。 它 比 以 前 版 本 的 输出 更 具 描述 性 。 请 记 住 ， 该 程序 的 用 户 可 能 不 知道 数据 库 


中 存在 参照 完整 性 约束 。 因 此 ，EXCEPTION_INIT 编 译 指 示 提高 了 你 的 错误 处 理 界面 的 可 读 性 。 如 有 需要 ， 你 可 以 在 你 的 程序 中 使 用 多 个 
EXCEPTION_INIT 编 译 指示 。 


10.3 ”实验 3: SQLCODE 和 SQLERRM 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 

- 使 用 SQLCODE 和 SQLERRM。 

在 第 8 草 ， 我们 了 解 了 Oracle 异 常 OTHERS。 所 有 Oracle 错 误 都 可 以 借助 OTHERS 异 常 处 理 程序 来 捕获 ， 如 下 面 的 示例 所 示 : 
示例 ch10 4a.sql 


DECLARE 
у_21р VARCHAR2(5) := '&зу 2Z1p'; 
у сісу VARCHAR2 (15); 
у ѕсасе CHAR (2); 
BEGIN 
SELECT city, state 
INTO у city, у state 
FROM zipcode 
WHERE zip = у 2ір; 


DBMS OUTPUT .PUT LINE (у city||', '||v_state); 
EXCEPTION 
WHEN OTHERS 
THEN 
DBMS OUTPUT. PUT LINE ('An error has оссиггей'!); 
END; 


当 用 户 为 邮政 编码 的 值 输入 07458 时 ， 这 个 示例 将 产生 下 面 的 输出 : 
An error has occurred 
该 输出 通知 你 在 运行 时 发 生 了 错误 ， 但 你 不 知道 错误 是 什么 ， 它 是 由 什么 原因 造成 的 。 也 许 ZIPCODE 表 中 没有 对 应 于 在 运行 时 提供 的 值 的 记录 ， 也 


可 能 因为 SELECT INTO 语 句 导致 数据 类 型 不 匹配 ， 或 者 SELECT INTO 语 句 返 回 多 行 。 正 如 你 所 看 到 的 ， 尽 管 这 是 一 个 简单 的 示例 ， 但 也 可 能 会 出 现 多 种 


运行 时 错误 。 


当然 ， 你 不 总 能 确定 程序 在 运行 时 可 能 出 现 的 每 一 个 可 能 的 运行 时 错误 。 因 此 ， 在 脚本 中 包括 OTHERS 异 常 处 理 程序 是 一 个 很 好 的 做 法 。 为 了 改进 程 
序 的 错误 处 理 界面 ，Oracle 平 台 提供 了 两 个 内 置 的 函数 ，SQLCODE 和 SQLERRM， 它 们 可 与 OTHERS 异 常 处 理 程序 配合 使 用 。SQLCODE 函 数 返回 
Oracle 错 误 号 ， 而 SQLERRM 函 数 返 回 错误 消息 。 由 SQLERRM 函 数 返 回 的 消息 的 最 大 长 度 为 512 字 节 ， 这 是 Oracle 数 据 库 错误 消息 的 最 大 长 度 。 


试想 ， 如 果 你 修改 前 面 的 示例 ， 在 其 中 加 入 如 下 SQLCODEfNSQLERRM 函 数 会 发 生 什么 修改 以 粗 体 突出 显示 ) : 


示例 ch10 4b.sql 


DECLARE 


v_zip VARCHAR2 (5) := '&sv zip'; 
v_city VARCHAR2 (15); 
у всаре CHAR (2); 


у err code NUMBER; 
у err msg VARCHAR2 (200); 
BEGIN 
SELECT city, state 
INTO v city, у _ state 
FROM zipcode 
WHERE zip = у zip; 


DBMS OUTPUT .PUT LINE (у city||', !| |у state); 


EXCEPTION 
WHEN OTHERS 
THEN 
у err code := SQLCODE; 
у err msg := SUBSTR (SQLERRM, 1, 200); 
DBMS ООТРОТ.РОТ LINE ('Еггог code: ' 
DBMS ООТРОТ.РОТ LINE ('Еггог message: !| |у err msg); 


END; 


у err code); 


在 执行 时 ， 这 个 版 本 的 示例 将 产生 下 面 的 输出 : 


Error code: -6502 
Error message: ORA-06502: PL/SQL: numeric or value error: character string buffer too small 


HSQLCODERŽOR PÁER егг собе, mæ 


这 个 版 本 的 脚本 包括 两 个 新 的 变量 : v err code 和 v_err msg。 在 块 的 异 单 处理 部 分 ， 
昔 误 号 和 错误 消息 。 


SQLERRM 函 数 返回 的 值 被 赋予 变量 v_ err msg。 接 下 来 ， 通 过 DBMS OUTPUT.PUT_LINE 语 句 在 屏幕 上 显示 4 
注意 ， 此 输出 比 前 一 版 本 的 示例 产生 的 输出 包 合 更 多 的 消息 ， 因 为 它 显示 了 错误 消息 。 一 旦 你 知道 在 你 的 程序 中 发 生 了 哪些 运行 时 错误 ， 你 就 可 以 
采取 措施 来 防止 其 复 友 。 
一 般 来 咬 ，SQLCODE 冰 数 返回 一 个 为 负数 的 错误 号 。 但 是 ， 也 有 一 些 例外 : 
- 当 SQLCODE 函 数 在 异常 部 分 之 外 引用 时 ， 它 返回 为 0 的 错误 代码 。 值 0 表示 成 功 完 成 。 
- 当 SQLCODE 辑 数 用 于 用 户 定义 的 异常 时 ， 它 返回 为 +1 的 错误 代码 。 
. SQLCODE 函数 在 NO_DATA_FEOUND 异 常 被 引发 时 ， 返 回 值 为 100。 


SQLERRM 消 数 接受 一 个 错误 号 作为 参数 ， 并 返回 对 应 于 此 错误 号 的 错误 消息 。 通 常情 况 下 ， 它 与 由 SQLCODE 消 数 返 回 的 值 配合 使 用 。 但 是 ， 如 果 


有 需要 ， 你 也 可 以 上 自己 提供 错误 号 。 考 虑 下 面 的 示例 : 


示例 ch10 5a.sql 


BEGIN 
DBMS OUTPUT.PUT LINE ('Error code: '||SQLCODE) ; 
DBMS ООТРОТ.РОТ LINE ('Error messagel: '| |SQLERRM (SQLCODE)) ; 
DBMS ООТРОТ.РОТ LINE ('Error message2: '||SQLERRM(100)); 
DBMS OUTPUT.PUT LINE ('Error message3: '||SQLERRM(200)); 
DBMS OUTPUT.PUT LINE ('Error message4: ' | | SQLERRM (-20000) ); 


END ; 


在 这 个 示例 中 ，SQLCODE 和 SQLERRM 国 数 被 用 在 PLUSQL 块 的 可 执行 部 分 。SQLERRM 上 六 数 接受 第 二 个 DBMS OUTPUT.PUT LINE 语 句 中 提供 的 


SQLCODE 值 。 在 以 下 DBMS OUPUT.PUT_LINE 语 句 中 ，SQLERRM 函 数 分 别 接受 为 100、200 和 -20000 的 值 。 在 执行 时 ， 这 个 示例 将 产生 下 面 的 输出 : 


Error code: 0 

Error messagel: ORA-0000: normal, successful completion 
Error message2: ORA-01403: no data found 

Error message3: -200: non-ORACLE exception 

Error message4: ORA-20000: 


8 —7`0ВМ5 ООТРОТ.РОТ LINEE 7501СОРЕВ НИЕ. КУАУ |2, КТБ ШО, КЖ, Ш5О!1СООЕ А#Б [НУН 
SQLERRMAŽUF JAZ. Іра 05а: "ORA-0000:normal, successful completion” , Ж FÆ, SQLERMAŽGZS1004FH HHS% HR 
E] “ОКА-01403: по datahttp://www.hzcourse.com/resource/readBook? 
path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/...”。 请 注意 ， 当 SQLERRM 函 数 接受 200 作 为 其 参数 ， 它 不 能 找到 对 应 于 
错误 号 200 的 Oracle 异 常 。 最 后 ， 当 SQLERRM 峭 数 接受 -20000 作 为 参数 时 ， 它 不 返回 错误 消息 。 回 想 一 下 ，-20000 是 一 个 可 与 一 个 命名 的 用 户 定义 异 
帅 相 关联 的 错误 号 。 


10.4” 忆 结 


在 本 章 ， 我 们 已 经 结束 了 对 错误 处 理 和 异常 的 探讨 。 我 们 学 会 了 如 何 使 用 RAISE APPLICATION ERROR 过 程 科 SQLCODE 及 SQLERM M 函 数 在 代码 
中 创建 有 意义 的 错误 消息 。 此 外 ， 我 们 还 了 解 了 EXCEPTION INIT 编 译 指示 ， 它 可 以 将 用 户 定义 的 异常 与 Oracle 错 误 号 相关 联 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 11 晶 ”游标 简介 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- 游标 类 型 

. 游标 循环 

游标 FOR 循环 

АЗЫР 


游标 是 Oracle 平 台 用 于 执行 SQL 语句 的 内 人 存 区 域 。 在 数据 库 编程 中 ， 游 标 是 实现 SQL 查询 结果 处 理 的 内 部 数据 结构 。 例 如 ， 你 可 以 使 用 游标 对 
STUDENT 表 中 参加 特定 课程 (在 ENROLLMENT 表 中 具有 相 天 条 目 ) 的 所 有 学 生 的 行进 行 操作 。 在 本 章 ， 你 将 学 习 如 何 声明 显 式 游标 ， 使 用 户 能 够 处 理 
查询 返回 的 多 行 ， 并 编写 每 次 处 理 一 行 的 代码 。 


11.1 实验 1: 洲 标 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
ЛЕ хм, 


为 了 处 理 SQL 语 句 ，Oracle 平 台 需 要 创建 被 称 为 上 下 文 区域 的 内 存 区 域 ， 这 将 包含 处 理 语句 所 需 的 信息 。 此 信息 包括 由 语句 处 理 的 行 数 和 一 个 指向 
语句 解析 后 的 表示 的 指针 (解析 SQL 语句 是 指 把 信息 传送 给 服务 器 ， 在 那里 评估 SQL 语句 的 有 效 性 的 过 程 ) 。 在 查询 中 ， 活 动 集 (active set) 是 指 将 被 
返回 的 行 。 

游标 是 一 个 指向 上 下 文 区 域 的 句柄 或 指针 。 通 过 游标 ， 一 个 PL/SQL 程 序 可 以 控制 上 下 文 区 域 ， 以 及 语句 被 处 理 时 此 区 域 会 故 生 什么 情况 。 游 标 有 如 
下 两 个 重要 的 特点 : 

1) 游标 可 用 于 逐 行 地 读 取 SELECT 语句 返回 的 行 。 

2) 游标 是 命名 的 ， 以 便 它 可 以 被 引用 。 

有 两 种 类 型 的 游标 : 

1) 隐 式 (implicit) 游标 是 由 Oracle 每 次 执行 SQL 语 句 时 自动 声明 的 。 用 户 不 会 意识 到 这 种 情况 的 发 生 ， 并 且 不 能 控制 或 处 理 隐 式 游 标 中 的 信息 。 


2) 显 式 (explicit) 游标 是 由 程序 为 返回 多 行 [/ 数据 的 任何 查询 定义 的 。 这 意味 着 程序 员 在 PLUSQL 代 码 块 中 声明 了 此 游标 。 此 声明 允许 应 用 程序 顺 
序 地 处 理由 游标 返回 的 每 一 行 数据 。 


[1 有 了 时 不 一 定 为 多 行 。 译 者 注 


11.2 实验 2: ҸАР 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 处 理 显 式 游标 。 
- 使 用 用 户 定义 的 记录 。 
` 使 用 游标 属性 。 


为 了 处 理 一 个 游标 ， 你 必须 对 它 进行 遍历 。 在 本 节 ， 我 们 将 通过 一 个 代码 示例 解释 这 个 循环 的 每 个 步骤 的 细节 。 


11.3 30293: ТЛ РОК 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` 使 用 游标 FOR 循环 。 
使 用 游标 FOR 循环 


由 于 所 使 用 的 简化 语法 ， 处 理 游标 的 另 一 种 方法 被 称 为 游标 FOR 循环 。 当 使 用 游标 FOR 循环 时 ， 打 开 、 读 取 和 关闭 的 过 程 是 羽 隐 式 处 理 的 。 这 使 得 
块 的 编写 简单 得 多 ， 并 且 更 易于 维护 。 


游标 FOR 循 环 指定 对 游标 返回 的 每 一 行 都 重复 一 次 的 语句 序列 。 如 果 需 要 从 一 个 游标 读 取 并 处 理 每 一 个 记录 ， 和 直到 退出 循环 时 才 停 止 ， 束 可 以 使 用 
游标 FOR 循环 。 


要 使 用 此 循环 ， 你 需要 用 下 面 的 脚本 创建 一 个 名 为 table log 的 新 表 : 


create table table log 
(description VARCHAR2 (250)); 


然后 运行 下 列 脚本 : 


示例 ch11 7.59 


DECLARE 
CURSOR с student IS 
SELECT student_id, last_name, first name 


FROM student 
WHERE student id < 110; 


BEGIN 
FOR r student IN с student 


LOOP 
INSERT INTO table 109 
VALUES (r_student.last_name) ; 


END LOOP; 


END; 
SELECT * from table log; 


下 面 的 PLUSQL 块 将 具有 八 名 或 更 多 学 生 的 所 有 课程 的 费用 都 减少 ?5%。 它 使 用 游标 FOR 循环 将 打折 后 的 费用 更 新 到 课程 (course) Ж. 


示例 ch11 8.59 


DECLARE 
CURSOR c_group discount IS 
SELECT DISTINCT s:course_no 
FROM section s, enrollment e 
WHERE s.section id = e.section id 
GROUP BY s.course no, e.section id, s.section id 


HAVING COUNT (* ) >=8; 


BEGIN 
FOR r_group_ discount ІМ c_group discount LOOP 


UPDAIE course 
SET cost = cost * .95 
WHERE course_no = r _ group discount .course_no; 


END LOOP; 
COMMIT; 
END; 


游标 c group_discount 是 在 声明 部 分 中 声明 的 。 适 当 的 SQL 被 用 来 产生 SELECT 语句 来 回答 提出 的 问题 。 在 FOR 循环 的 每 个 循环 运 代 中 处 理 游标 并 执 
{7501 update 语 句 。 因 此 ， 游 标 不 必 被 打开 、 读 取 和 关闭 。 此 外 ， 对 于 正在 处 理 游标 的 循环 不 必 使 用 游标 属性 来 创建 一 个 退出 条 件 。 


11.4 实验 4: ЕХ 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` АЁ РЁ ЙТ Жр 
(ез5) ЕН МАЛИНА, C5 ARERR АМЫ. MURBA ЙҮ 


游标 可 以 相互 葵 套 。 尽 管 这 听 起 来 复杂 ， 
， 然 后 开始 第 二 轮 。 在 接 下 来 的 两 个 示例 中 ， 我 们 会 遇 到 一 个 市 有 子 游标 的 认 套 游 


标 ， 则 每 次 父 游标 执行 一 个 循环 时 ， 它 都 将 遍历 每 个 子 游标 循环 一 次 
标 。 
处 理 同 套 游 标 

在 下 面 的 示例 中 ， 添 加 了 行 号 以 便 可 以 在 下 面 的 说 明 中 引用 各 行 。 当 运行 此 代码 时 ， 需 要 删除 这 些 行 号 。 


示例 ch11 9.59 


SET SERVEROUTPEUT ON 

DECLARE 

2 v_zip 2ірсойе.2ір%ТҮРЕ; 
3 у student flag CHAR; 

& CURSOR с 2ір IS 

5 SELECT zip, city, state 
6 FROM zipcode 

7 WHERE state = 'СТ'; 

8 CURSOR с student IS 


9 SELECT first name, last name 
10 FROM student 
11 WHERE zip = у zip; 
12 BEGIN 
ІЗ FOR г 2ір ІМ с 2ір 
14 LOOP 
15 у Student flag := 'N'; 
16 Y 21р = 21р.21р; 
17 DBMS OUTPUT .PUT LINE (СНВ (10)); 
18 DBMS ООТРОТ.РОТ LINE ('Students living in || 
19 e ID EERS 
20 FOR r student in c student 
21 LOOP 
22 DBMS OUTPUT .PUT LINE ( 
23 г student.first_name| | 
24 [|е student.last name) ; 
25 v_student_flag := 'Y'; 
26 END LOOP; 
27 IF v_student_flag = 'N' 
28 THEN 
29 DBMS OUTPUT .PUT_ LINE 
('No students for this ZIP code'); 
30 END IF; 
SL END LOOP; 
32 END; 


此 示例 中 有 两 个 游标 : 邮政 编码 游标 和 学 生 名 单 游标 。 变 量 v_zip 在 第 16 行 被 初始 化 为 c_zip 游 标的 当前 记录 的 邮政 编码 。 游 标 c student 通过 这 个 变 
量 与 游标 c_zip 相 联系 。 因 此 ， 当 游标 在 第 20~ 26 行 被 处 理 时 ， 它 检索 出 拥有 父 游标 的 当前 记录 的 邮政 编码 的 学 生 。 父 游标 在 第 13~31 被 行 处 理 。 父 游标 
的 每 次 迭代 只 执行 一 次 在 第 16 和 17 行 的 DBMS_OUTPUT 语 句 。 每 次 子 循环 都 执行 一 次 在 第 22 行 的 DBMS_OUTPUT 语 句 ， 为 每 个 学 生 都 生成 一 行 输出 。 
只 有 当 内 循环 没有 执行 时 ， 才 执行 在 第 29 行 的 DBMS_OUTPUT.PUT_LINE 语 句 ， 这 是 通过 设置 一 个 变量 v student flag 完 成 的 。 此 变量 在 父 循环 的 开始 
被 设置 为 N， 如 果子 循环 至 少 执行 了 一 次 ， 那 么 此 变量 将 被 设置 为 Y。 在 子 循 环 关 闭 后 ， 利 用 IF 语句 来 检查 变量 的 值 。 如 果 它 仍 是 N， 则 可 以 安全 地 得 
结论 ， 内 层 循环 没有 处 理 。 这 将 允许 执行 最 后 一 个 DBMS_ OUTPUT.PUT_LINE 语 句 。 旋 套 游标 更 经 常 被 参数 化 。 游 标 中 的 参数 在 12.2 节 中 深入 解释 。 


下 一 个 示例 是 带 有 两 个 游标 FOR 循环 的 PLUSQL 块 。 父 游标 从 student 表 中 检索 STUDENT 1D 小 于 110 的 学 生 的 student id, first name 和 
last name， 并 在 一 行 中 输出 这 些 信息 。 对 于 每 一 个 学 生 ， 子 游标 遍历 该 学 生 就 读 的 所 有 课程 ， 输 出 课程 的 course_no 和 摘 述 (description) 。 


示例 ch11 10.59 


SET SERVEROUIPUI ON 
DECLARE 
v_sid student .student_idśTYPE; 
CURSOR c_student IS 
SELECT student id, first_name, last_name 
FROM student 
WHERE student id < 110; 
CURSOR c_course IS 
SELECT c.course_no, c.description 
FROM course c, section s, enrollment e 
WHERE c.course_no = s.course_no 
AND s.section_id = e.section_id 
AND e.student id = v sid; 
BEGIN 
FOR r student IN c student 
LOOP 
v_sid := r_student.student_id; 
DBMS_OUTPUT.PUT_LINE (chr (10)); 
DBMS OUTPUT.PUT LINE(' The Student '|| 
г student.student id||''|| 
г student.first пате | |' '|| 
г Student .ast name); 
DBMS OUTPUT.PUT LINE(' is enrolled іп the ' | | 
'following courses: !); 
FOR г course IN с course 
LOOP 
DBMS OUTPUT .PUT LINE(r course.course по | | 
' !||r course.description) ; 
END LOOP; 
END LOOP; 
END; 


在 PL/SQL 块 的 声明 部 分 中 定义 了 两 个 游标 的 SELECT 语 句 。 此 外 ， 还 声明 了 一 个 变量 来 存储 来 自 父 游标 的 student_id。 课 程 游标 是 子 游标 。 因 为 它 使 
用 了 变量 v_ sid， 所 以 必须 先 声 明 此 变量 。 两 个 游标 都 用 FOR 循环 进行 处 理 ， 从 而 消除 了 对 OPEN、FETCH 和 CLOSE 语句 的 需要 。 当 处 理 父 学 生 循环 时 ， 
第 一 步 是 初始 化 变量 v_ sid， 然 后 在 处 理子 循环 时 使 用 这 个 值 。 使 用 DBMS_OUTPUT 语 句 为 每 个 游标 循环 生成 显示 输出 。 父 游标 将 显示 一 次 学 生 姓 名 ， 而 


子 游标 将 显示 此 学 生 丈 读 的 每 门 课程 的 名 称 。 
下 面 的 示例 演示 了 一 个 嵌 套 的 游标 : 
示例 ch11_11.sql 


SET SERVEROUTPUT ON 
DECLARE 


V_amount course.costTYPE; 
BA 
CURSOR c inst IS 
SELECT first_name, last_name, instructor id 
FROM instructor; 
CURSOR с созі IS 
SELECT c.costť 
FROM course c, section в, enrollment e 
WHERE s.instructor id = v instructor id 
AND c.course_ по = s.course по 
AND s.section id = e.section id; 
BEGIN 
FOR T 105C IN с іпзі 
LOOP 
у іпзігиссог 1а := р іпві.іпвегисіёог Ча; 
V_amount := 0; 
DBMS _ OUTPUT .PUT LINE ( 
'Amount generated by instructor '|| 


r inst.first name||' '||r inst.last пате 
ПЫ СЕ 

FOR r cost IN с созі 

LOOP 
v_amount := v amount + NVL(r cost.cost, 0); 

END LOOP; 

DBMS OUTPUT .PUT LINE 

Е ' | |TO_CHAR (у amount, ' $999,999')); 

END LOOP; 


END; 


声明 部 分 包含 两 个 变量 的 声明 。 第 一 个 是 v amount， 它 与 course 表 中 cost 的 数据 类 型 相 匹 配 ， 第 二 个 是 v instructor id， 它 与 instructor 表 中 
instructor id 的 数据 类 型 匹配 。 另 外 还 有 两 个 游标 的 声明 。 第 一 个 是 c_ inst， 由 instructor 表 中 教师 的 first name, last name 和 instructor id 组 成 。 第 二 
个 游标 ，c_cost， 将 生成 就 读 于 匹配 变量 v_instructor_id 的 教师 执教 的 一 门 课 程 的 每 个 学 生 的 课程 费用 的 结果 集 。 这 两 个 游标 将 以 英 套 的 方式 运行 。 


首先 ， 在 FOR 循 环 中 打开 游标 c_inst。 变 量 v_instructor_id 的 值 被 初始 化 为 匹配 instructor_idc_inst 游 标的 当前 行 。 变 量 v_ amount 被 初始 化 为 0。 


第 二 个 游标 在 第 一 个 游标 的 循环 内 打开 。 因 此 ， 对 于 游标 c_inst 的 每 次 迭代 ， 都 将 打开 、 读 取 和 关闭 第 二 个 游标 。 第 二 个 游标 将 遍历 生成 报名 参加 了 
c_inst 洲 标 当前 值 的 教师 的 课程 的 每 个 学 生 的 所 有 费用 。 骨 套 循环 每 次 达 代 时 ， 它 都 会 通过 添加 在 c_cost 循 环 中 的 当前 费用 来 递增 变量 v_amount。 


在 打开 c_cost 循 环 之 前 ，DBMS OUTPUT 语 句 显示 了 教师 的 名 字 。c_cost 游 标 循环 结束 后 ，DBMS OUTPUT 语 句 显示 当前 教师 的 所 有 报名 入 学 所 产 
生 的 总 金额 。 


结果 集 将 如 下 所 示 : 


Amount generated by instructor Fernand Hanks 1S 
$49,110 

Amount generated by instructor Tom Wojick is 
$24,582 

Amount generated by instructor Nina Schorin is 


543,319 
Amount generated by instructor Gary Pertez is 


1 e D у, 

Amount generated by instructor Anita Morris is 
518,662 

Amount generated ру instructor Todd Smythe is 
521,092 

Amount generated ру instructor Marilyn Frantzen is 
534,311 

Amount generated ру instructor Charles Lowry is 
597.910 

Amount generated ру instructor Віск Chow is 

50 

Amount generated by instructor Irene Willig is 
$0 


在 此 示例 中 ， 嵌 套 的 游标 通过 变量 v_instructor_id 被 绑 定 到 外 层 游标 的 当前 行 。 处 理 此 任务 更 常用 的 方法 是 将 一 个 参数 传递 给 一 个 游标 。 我 们 将 在 第 
12 章 学 习 更 多 关于 如 何 实现 这 一 目标 的 知识 。 


11.5 д4 

在 本 章 ， 我 们 学 习 了 如 何 使 用 各 种 类 型 的 游标 。 我 们 首先 学 习 了 Oracle 平 台 如 何 处 理 隐 式 游 标 ， 然 后 学 习 了 使 用 显 式 游标 所 需 的 所 有 步骤 。 此 外 ， 
我 们 还 了 解 了 不 同 的 记录 类 型 ， 并 了 解 了 如 何在 游标 的 上 下 文中 使 用 它们 。 最 后 ， 我 们 学 习 了 三 种 类 型 的 游标 循环 : ЕВА. РОКАХ. 
顺便 这 说 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 12 草 ”高 级 游标 


在 本 章 ， 你 将 学 习 如 下 内 容 : 

- 参数 化 游标 

За) Л 

. FOR UPDATE 和 WHERE CURRENT 游 标 


在 第 11 章 ， 我 们 掌握 了 游标 的 基本 概念 。 在 本 章 ， 我 们 将 学 习 在 调用 游标 时 如 何 通过 传递 参数 来 动态 改变 游标 的 WHERE 子 句 。 在 第 21 章 ， 我 们 将 把 
游标 带 到 另 一 个 层次 ， 也 就 是 说 ， 在 一 个 包 的 上 下 文中 ， 我 们 将 学 习 如 何 实现 游标 变量 。 
12.1 实验 1: 参数 化 游标 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


- 在 游标 中 使 用 参数 。 


市 参数 的 游标 

声明 游标 时 可 以 使 用 参数 。 这 种 方法 使 游标 可 以 产生 既 紧 凑 又 可 重用 的 特定 结果 集 。 例 如 ， 包 含 ZIPCODE 表 中 所 有 数据 的 游标 可 能 是 非常 有 用 的 ， 
但 如 果 它 保存 的 信息 只 有 一 个 州 ， 它 对 于 某 些 数据 处 理 将 会 变 得 更 为 有 有用。 现在， 你 知道 如 何 创建 这 样 的 游标 。 但 如 果 你 可 以 创建 可 以 接受 州 的 参数 的 
游标 ， 然 后 只 退 历 此 州 的 城市 和 邮政 编码 ， 难 道 不 是 更 加 有 用 吗 ? 


示例 


CURSOR с zip (р state IN zipcode.state%TYPE) IS 
SELECT 2ір, Clty; Btate 
FROM zipcode 
WHERE state = p state; 


关于 游标 中 的 参数 ， 要 牢记 的 要 点 如 下 : 

` 游标 参数 使 游标 更 加 可 重用 。 

- 游标 参数 可 被 赋予 默认 值 。 

` 游标 参数 的 作用 域 对 游标 是 局 部 的 。 

- 参数 的 模式 只 能 是 IN。 

当 游 标 已 被 声明 为 接受 一 个 参数 后 ， 调 用 它 时 就 必须 包括 此 参数 的 值 。 刚 刚 被 声明 的 c_zip 游 标的 调用 方法 如 下 : 
ОРЕМ с zip ( 参数 值 ) 

相同 的 游标 可 以 用 如 下 的 游标 FOR 循环 打开 : 


FOR © 2ір ІМ с 21ір('М№ү!) 
LOOP шы 


前 面 示例 中 的 游标 在 下 面 的 示例 中 被 扩展 为 参数 化 游标 。 这 个 示例 包括 显示 邮政 编码 、 城 市 、 州 的 一 个 DBMS_OUTPUT 行 。 这 与 我 们 之 前 使 用 的 游 
标 FOR 循 环 的 过 程 是 相同 的 ， 只 是 现在 当 游 标 打 开 时 ， 我 们 对 它 传递 了 一 个 参数 。 


示例 ch12 1.sql 


DECLARE 
CURSOR с_21р (р state IN zipcode.state%TYPE) IS 
SELECT zip, city, state 
FROM zipcode 
WHERE state = p state 
BEGIN 
FOR г 2ір IN с 2ір('№Ј!) 
LOOP... 
DBMS OUTPUT.PUT LINE(r zip.city || 
К | le et йн 
END LOOP; 
END; 


要 完成 此 块 ， 游 标 声明 被 DECLARE 和 BEGIN 封 闭 。 通 过 传递 参数 “NJ” 打 开 游 标 ， 然 后 ， 对 游标 循环 的 每 次 迭代 ， 都 利用 内 置 包 DBMS_OUTPUT 
显示 邮政 编码 和 城市 。 


12.2 ”实验 2: 复杂 的 网 套 游标 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` 使 用 复杂 的 谱 套 游标 。 


启 套 游标 允许 在 不 同 阶 段 遍 历数 据 。 例 如 ， 一 个 游标 可 能 遍历 邮政 编码 。 当 它 命中 某 个 邮政 编码 时 ， 可 能 嵌 套 第 二 个 游标 ， 它 遍历 住 在 这 个 邮政 编 
码 区 域 中 的 学 生 。 一 个 具体 示例 将 有 助 于 解释 这 种 方法 的 更 多 细节 。 


下 面 的 PL/SQL 代 码 是 复杂 的 。 它 涉及 目前 为 止 本 章 涵 薪 的 所 有 主题 。 其 中 有 一 个 岩 套 游标 ， 它 包含 三 个 层次 ， 这 意味 着 祖父 游标 、 父 游标 和 子 游 


标 。 
示例 ch12 2.59 


SET SERVEROUTPUT ON 
DECLARE 
2 CURSOR с atuüdënt IS 
С SELECT first_name, last_name, student іа 
4 FROM student 
5 WHERE last_name LIKE '1]%'; 
6 CURSOR c course 
7 (1 student іа ІМ student .student id%TYPE) 
8 


15 

9 SELECT c.description, s.section_id sec іа 

10 FROM course с, section s, enrollment е 

ri WHERE e.student іа = 1 student іа 

12 AND c.course_no = s.course_no 

1:3 AND s.section id = e.section id; 

14 CURSOR с grade(i section id IN section.section 14%ТҮРЕ, 
18 і student іа ІМ student . StUQent id%TYPE) 
16 IS 

ЕТ SELECT gt.description grd desc, 

18 ТО CHAR 

19 (AVG (g.numeric_grade), '999.99') num grd 
20 FROM enrollment е, 

21: grade g, grade type gt 

22 WHERE е.ѕесііоп іа = і section іа 
23 AND e.student_id = g.student іа 
24 AND e.student іа = 1 student іа 
25 AND е.зѕесііоп іа = g.section id 
26 AND g.grade суре сое = gt.grade type code 
a GROUP BY gt.description ; 
28 BEGIN 
29 FOR r student IN c student 

30 LOOP 

ЗІ DBMS_OUTPUT .PUT 1ІМЕ (СНК (10)); 

32 DBMS OUTPUT .PUT LINE( student .fizst пате | | 

33 ' '||r student.last пате) ; 

34 FOR r course ІМ с course(r student .student іа) 
a5 LOOP 

36 DBMS OUTPUT .PUT LINE ('Grades for course :'|| 
37 г course.description); 

38 FOR г grade ІМ с дгайе (г course.sec іа, 

39 r student .Student іа) 

40 LOOP 

41 DBMS OUTPUT.PUT LINE(r grade.num grd| | 

42 ' '!'||r grade.grd desc); 

43 END LOOP; 

44 END LOOP; 

45 END LOOP; 

46 END; 


А520, c_student, 1Е%2-55288. CAESA, EEA "Ј" ALFERRA. KIMERO 13 行 声明 。 这 个 游标 ，c_course， 采 用 
student id 参数 生成 此 学 生 融 读 的 课程 列表 。 子 游标 ，c_grade， 在 第 14~27 行 声明 。 它 有 两 个 参数 ，section_id 和 student_ id。 以 这 种 方式 ， 它 可 以 生 


成 此 学 生 此 课程 的 不 同 成 绩 类 型 的 平均 成 绩 。 


宜 父 游标 循环 从 第 29 行 开始 ， 并 且 用 DBM3_OUTPUT 只 显示 学 生 名 字 。 父 游标 循环 从 第 35 行 开始 ， 它 从 祖父 游标 取得 student_ id 参数 ， 只 显示 课程 
的 摘 述 。 子 游标 循环 从 第 40 行 开始 ， 它 取得 父 游标 的 section_id 参 数 和 祖父 游标 的 student id 参数 ， 成 绩 会 被 显示 出 来 。 祖 父 游标 循环 在 第 45 行 结束 ， 父 
游标 在 第 44 行 结束 ， 并 且 最 终 子 游标 在 第 43 行 结束 。 


这 个 脚本 的 输出 是 一 个 学 生 的 名 字 ， 后 面 跟 着 此 学 生 融 读 的 课程 ， 以 及 其 已 经 获得 的 每 一 个 成 绩 类 型 的 平均 成 绩 。 


12.3 ”实验 3: FOR UPDATE 和 WHERE СОККЕМТ л 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 FOR UPDATE 游标 。 


. 在 游标 中 使 用 WHERE CURRENT. 
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本 章 探讨 了 各 种 涉及 游标 的 高 级 主题 。 首 先 ， 我 们 了 解 了 如 何 将 参数 传递 给 游标 以 限制 游标 的 结果 集 。 然 后 ， 我 们 学 会 了 如 何 谋 套 游标 。 最 后 ,我 
们 看 到 了 创建 执行 数据 库 更 新 的 游标 的 语法 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 
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在 本 章 ， 你 将 学 习 如 下 内 容 : 


在 第 1 章 ， 我 们 学 习 了 命名 PL/SQL 块 ， 如 可 以 存储 在 数据 库 中 的 过 程 、 消 数 和 包 的 概念 。 在 本 草 ， 你 将 学 习 另 一 种 称 为 数据 库 触 友 器 的 命名 PL/SQL 
块 。 你 还 将 了 解 不 同 触 友 器 的 特点 及 其 在 数据 库 中 的 用 途 。 


13.1 实验 1: 什么 是 触 友 器 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


定义 数据 库 触发 器 。 


- 使 用 BEFORE 和 AFTER 触发 器 。 


` 使 用 自治 事务 。 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 行 触发 器 和 语句 触发 器 。 


· 使 用 INSTEAD OF 触发 器 。 


13.3” 忆 结 


在 本 章 ， 我 们 开始 了 解数 据 库 触 友 器 ， 包 括 它们 的 性 质 ， 它 们 是 如 何 触 友 的 ， 都 有 哪些 类 型 的 触 友 器 可 用 ， 以 及 它们 的 可 能 用 法 。 我 们 还 学 习 了 如 
何 定 义 和 使 用 自治 事务 。 在 第 14 章 ,我 们 将 了 解 复合 触 友 器 及 它们 的 用 法 。 
顺便 况 况 

配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 14 草 ”变异 表 和 复合 触 友 器 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


在 第 13 章 ， 我 们 探讨 了 触 上 友 器 的 概念 。 你 了 解 了 触 友 器 在 数据 库 中 的 用 法 、 会 导致 触 友 器 触 皮 的 事件 ， 以 及 不 同类 型 的 触及 器 。 在 本 章 ， 我 们 将 继 
续 探 讨 触 友 器 。 你 将 了 解 变异 表 问 题 ， 并 探讨 如 何 用 触 友 器 来 解决 这 些 问题 。 


14.1 节 介绍 变异 表 并 说 明 如 何在 Oracle 11g 之 前 的 数据 库 版 本 中 解决 与 它们 相关 的 问题 。14.2 节 研究 复合 触 友 器 ， 这 是 在 Oracle 11g 中 引入 的 ， 并 
讨论 如 何 将 它们 用 于 解决 变异 表 问 题 。 


14.1 实验 1: 变异 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
.了解 变异 表 。 


` 解决 变异 表 问 题 。 


14.2 30192: 复合 触 友 器 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


` 定义 复合 触发 


уз 


` 使 用 复合 触发 器 来 解决 变异 表 问 题 。 
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在 第 13 章 中 ， 我 们 开始 探讨 不 同类 型 的 PL/SQL 支 持 触 友 器 。 在 本 草 ， 我 们 继续 这 种 探讨 并 了 解 了 变异 表 问 题 。 我 们 学 会 了 如 何在 Oracle 11g 之 前 的 
版 本 中 解决 这 种 问题 。 最 后 ， 我 们 了 解 了 复合 触发 器 ， 这 是 在 Oracle 11g 中 引入 的 ， 并 学 到 了 如 何 用 这 些 类 型 的 触发 器 来 解决 变异 表 问 题 。 
顺便 说 说 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


. PL/SQL 表 


.多 级 集合 


本 书 已 经 探讨 了 不 同类 型 的 表示 单个 元 素 的 PL/SQL 标 识 符 或 变量 (例如 ， 表 示 一 个 特定 学 生 的 成 绩 的 变量 ) 。 然 而 ,我 们 经 常 希望 能 够 在 程序 中 表 
示 一 组 元 素 (例如 ， 一 个 班 的 学 生 的 成 绩 ) 。 为 了 支持 这 种 扩 术 ，PL/SQL 提 供 了 工作 方式 与 其 他 第 三 代 编 程 语 言 所 提供 的 数组 类 似 的 集合 数据 类 型 。 


15.1 实验 1: PL/SQL 表 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 关联 数组 。 

АЖЖ. 

-ZARE iko 


PL/SQL 表 类 似 于 只 有 一 列 的 数据 库 表 。 一 个 PL/SQL 表 的 行 不 以 任何 预定 义 的 顺序 存储 ， 然 而 ， 当 它们 被 提取 到 一 个 变量 中 时 ， 每 一 行 都 被 分 配 了 一 
个 从 1 开始 的 连续 下 标 ， 如 图 15-1 所 示 。 


图 15-1 显 示 了 一 个 由 整数 组 成 的 PL/SQL 表 。 每 个 数 都 被 赋予 了 对 应 于 它 在 表 中 的 位 置 的 唯一 下 标 。 例 如 ， 数 字 3 被 赋予 下 标 5， 因 为 它 是 存储 在 
PL/SQL 表 的 第 五 行 中 。 


Number (1) 


Number (2) 


Number (3) 


Number (4) 


Number (5) 


图 15-1 ”PL/SQL 表 


有 两 种 类 型 的 PL/SQL 表 : 关联 数组 (以 前 称 为 索引 表 ) 和 骨 套 表 。 它 们 具有 相同 的 结构 ， 它 们 的 行 的 访问 方式 也 相同 ， 也 就 是 ， 通 过 下 标 符号 访 
问 。 这 两 种 类 型 之 间 的 主要 区 别 在 于 ， 网 套 表 可 以 存储 在 数据 库 的 询 中 ， 而 天 联 数组 不 能 。 


15.2 ”实验 2: 变 长 数组 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 数组 。 


变 长 数组 ， 即 大 小 可 变 的 数组 ， 是 另 一 种 集合 类 型 。 类 似 于 PL/SQL 表 ， 变 长 数组 的 每 个 元 素 都 被 分 配 一 个 从 1 开始 的 连续 下 标 。 图 15-2 展 示 了 由 五 


个 整数 组 成 的 变 长 数组 ， 其 中 每 个 数 都 被 赋予 了 对 应 于 它 在 变 长 数组 的 位 置 的 唯一 下 标 。 


最 大 大 小 = 10 


Number Number Number Number Number 
(1) (2) (3) (4) (5) 


9152 ЖКЖ 


变 长 数组 有 一 个 最 大 大 小 。 换 言 乙 ， 变 长 数组 的 下 标 有 一 个 等 于 1 的 固定 下 限 和 一 个 有 需要 时 可 扩展 的 上 限 。 在 图 12-2 中 ， 变 长 数组 的 上 限 是 ?2， 但 
它 可 以 扩展 到 6、7， 等 等 ， 最 大 为 10。 因 此 ， 一 个 变 长 数组 可 以 包含 多 个 元 素 ， 元 素 的 个 数 从 零 (清空 的 数组 ) 到 其 最 大 大 小 。 回 顾 一 下 ，PL/SQL 表 没 
有 必须 明确 指定 的 最 大 大 小 、。 


创建 变 长 数组 的 通用 语法 如 清单 15-7 所 示 (保留 字 和 括号 括 起 来 的 短语 是 可 选 的 ) 。 


88815-7 变 长 数组 


ТҮРЕ type name IS {VARRAY | VARYING ARRAY} (size limit) OF element type [NOT NULL]; 
varray name ТҮРЕ МАМЕ; 


首先 ， 使 用 TYPE 语 句 定义 变 长 数组 结构 ， 其 中 type_name 是 在 第 二 步 中 用 于 声明 一 个 实际 变 长 数组 的 类 型 名 称 。 请 注意 ， 此 类 型 有 VARRAY 和 
VARYING ARRAY 两 个 变 体 。size_limit 是 一 个 正 整数 字面 量 ， 它 指定 一 个 变 长 数组 的 上 限 。 

其 次 ， 实 际 变 长 数组 是 基于 在 第 一 步 中 指定 的 类 型 声明 的 。 

考虑 清单 15-8 所 示 的 代码 片段 。 


清单 15-8 声明 一 个 变 长 数组 


DECLARE 
ТҮРЕ last пате type IS VARRAY (10) OF student.last name%TYPE; 
last name varray last name type; 


在 这 个 示例 中 ， 类 型 last_name _type 被 声明 为 基于 STUDENT 表 的 LAST_NAME 列 的 10 个 元 素 的 变 长 数组 。 接 着 ， 实 际 变 长 数组 last_name _varray 基 
于 last_name type 被 声明 。 类 似 于 谋 套 表 ， 一 个 变 长 数组 可 以 通过 CREATE TYPE 语 句 被 定义 为 独立 的 用 户 定义 类 型 。 


类 似 于 谋 套 表 ， 变 长 数组 在 被 声明 时 ， 它 是 自动 为 NULL 的 ， 并 且 在 它 的 各 个 元 素 可 以 被 引用 之 前 必须 被 切 始 化 。 在 15.1 节 中 使 用 的 示例 的 修改 版 
本 ，ch15_1c.sql， 此 版 本 的 脚本 使 用 变 长 数组 ， 而 不 是 使 用 启 套 表 (修改 后 的 语句 以 粗 体 突出 显示 ) 。 


示例 ch15_1d.sql 


DECLARE 
CURSOR пате сиг 15 
SELECT last_name 
FROM student 
WHERE rownum < 10; 


TYPE last name type IS VARRAY (10) OF student.last паше%ТҮРЕ; 


last name varray last name type := last name type(); 


v index PLS INTEGER := 0; 


BEGIN 
FOR name_rec IN name_cur 
LOOP 
v_index := v_index + 1; 
last_name varray .EXTEND; 
last пате уаггау (у index) := name rec.last папе; 
DBMS OUTPUT.PUT LINE ('last name('||v index||'):'||last пате varray (у index)); 
END LOOP; 
END; 
此 示例 产生 下 面 的 输出 : 


Kocka 
Jung 


last name (1) 

last name (2) 

last name (3): Mulroy 
last name (4): Brendler 
last пате (5): Сагсіа 
last name (6): Tripp 
last name (7): Frost 
last name (8): Snow 
last name (9): Scrittorale 


基于 前 面 的 示例 ， 你 可 能 会 意识 到 ， 出 现在 15.1 节 中 的 集合 方法 也 可 以 用 于 变 长 数组 。 考 虑 下 面 的 示例 ， 
方法 的 用 法 : 
示例 ch15 3a.sq| 
DECLARE 


ТҮРЕ уаггау Суре 15 VARRAY (10) ОЕ NUMBER; 
уаггау уаггау суре := уаггау іуре (1, 2, 3, 4, 5, 6); 


ВЕСІМ 
DBMS_OUTPUT .PUT LINE ('varray.COUNT = ! | |уаггау.Со0чт); 
DBMS OUTPUT .PUT LINE ('varray.LIMIT = ! | |уаггау.1ІМмІТ); 
DBMS OUTPUT .PUT LINE ('уаггау.ЕІВЅТ = '||varray.FIRST) ; 
DBMS OUTPUT .PUT LINE ('уаггау.1А$Т = ! | |уаггау.1АЅТ); 


-- 把 第 4 个 元 素 的 两 个 副本 追加 到 变 长 数组 
varray .EXTEND (2, 4); 


它 说 明了 在 应 用 于 变 长 数组 时 ， 各 种 集合 


DBMS OUTPUT .PUT LINE ('varray.LAST = !||уаггау.1АЅТ); 
DBMS OUTPUT .PUT LINE ('varray ('||varray.LAST||') = !||уаггау (уаггау.1АЅТ)); 
修剪 最 后 两 个 元 素 
уаггау.ТВІМ (2); 
DBMS ООТРОТ.РОТ LINE ('уаггау.1АЅТ = ! | |уаггау.1АЅТ); 
END; 


此 示例 返回 下 面 的 输出 : 


о СО ОУ? н о 


уаггау .COUNT 
varray .LIMIT = 
varray .FIRST = 
varray .LAST = 
varray.LAST = 
уаггау (8) = 
varray.LAST = 
输出 的 前 两 行 : 
varray.COUNT = 6 
varray.LIMIT = 10 
9 лОМІТИМІТЬ AAR. ШТ, COUNTA ЫЕ А —“&6бНрс а. EACAN, АШСООМТЛ AR 
回 6。 
输出 的 下 一 行 对 应 于 另 一 个 集合 方法 ，LIMIT。 此 方法 返回 一 个 集合 可 以 包含 的 元 素 的 最 大 数量 并 通常 用 于 变 长 数组 ， 这 是 因为 变 长 数组 有 一 个 在 声 
明 时 指定 的 上 限 。 此 变 长 数组 的 上 限 是 10， 所 以 LIMIT 方 法 返回 10。 


你 知道 吗 ? 
当 LIMIT 方 法 被 用 于 关联 数组 和 吝 套 表 时 ， 它 返回 NUIL， 这 是 因为 这 些 集合 类 型 不 具有 最 大 大 小 。 


输出 的 第 3 行 和 第 4 行 : 


varray.FIRST = 1 
varray.LAST = 6 


显示 FIRST 和 LAST 方 法 的 结果 。 输 出 的 第 5 行 和 第 6 行 : 


varray .LAST 8 
varray (8) = 4 


显示 用 EXTEND 方 法 增加 了 集合 的 大 小 后 ，LASTT 方 法 和 集合 的 第 8 个 元 素 的 值 。 请 注意 ，EXTEND 方 法 : 
varray .EXTEND (2, 4); 

把 第 4 个 元 素 的 两 个 副本 奶 加 到 集合 。 因 此 ， 第 7 个 和 第 8 个 元 素 都 包含 值 4。 

最 后 ， 输 出 的 最 后 一 行 : 
varray.LAST = 6 


显示 通过 TRIM 方 法 除去 最 后 两 个 元 素 之 后 的 最 后 一 个 下 标 值 。 


Q 


注意 ”你 不 能 使 用 DELETE 方 法 来 删除 变 长 数组 的 元 素 。 不 同 于 PL/SQL 表 ， 变 长 数组 是 致密 的 ， 并 且 使 用 DELETE 方 法 会 导致 错误 ， 如 下 面 的 


示例 所 示 : 


DECLARE 

ТҮРЕ varray type IS VARRAY(3) OF CHAR (1) ; 

varray Varray type := varray type('A', 'B', 'С'); 
BEGIN 

varray .DELETE (3); 
END; 


ORA-06550: line 6, colum 4: 

PLS-00306: wrong number or types of arguments in call to 'DELETE' 
ORA-06550: line 6, column 4: 

PL/SQL: Statement ignored 


现在 ， 我 们 已 经 看 到 了 如 何 定义 和 使 用 这 三 种 集合 数据 类 型 : 关联 数组 、 裔 套 表 和 变 长 数组 。 表 15-1 总 结 了 它们 的 异同 。 


+151 关联 数组 、 早 套 表 和 变 长 数组 


集合 声明 时 的 状态 可 被 定义 致密 或 稀疏 


关联 数组 | 未 设置 тїн PLS_ E PL/SQL 决 、 包 、 过 | een 
INTEGER Рен РЕ ЖЕР 
TE PL/SQL 块 、 包 、 过 
INTEGER NULL Реа РА Ж Н, FERRA 
别 作 为 独立 类 型 
{ЇЕ PL/SQL 块 、 包 、 过 
INTEGER NULL Роб ра 9, HERRA 


清空 的 


开始 时 致密 ,但 
п] ЛЕЙ. 


йк 


别 作 为 独立 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 多 级 集合 。 


到 目前 为 止 ， 你 已 经 看 到 基于 诸如 NUMBER 和 VARCHAR2 的 标量 型 的 元 素 类 型 的 集合 的 各 种 示例 。 但 是 ，PL/SQL 还 提供 了 创建 其 元 素 类 型 是 基于 
集合 类 型 的 集合 能 力 。 这 样 的 集合 被 称 为 多 级 集合 


图 15-3 显 示 了 一 个 变 长 数组 的 变 长 数组 ， 也 被 称 为 藤 套 变 长 数组 。 在 本 例 中 ， 变 长 数组 的 变 长 数组 包括 三 个 元 素 ， 其 中 每 个 单独 的 元 素 都 是 一 个 由 
四 个 整数 组 成 的 变 长 数组 。 


VARRAY(4) OF INTEGER VARRAY(4) OF INTEGE R VARRAY(4) OF INTEGER 


VARRAY(3) OF VARRAY(4) OF INTEGER 
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为 了 引用 变 长 数组 的 变 长 数组 的 单个 元 素 ， 可 以 使 用 如 清单 15-9 所 示 的 符号 。 
清单 15-9 引用 内 套 变 长 数组 的 元 素 
变 长 数组 名 (外 层 变 长 数组 的 下 标 ) (内 层 变 长 数组 的 下 标 ) 


例如 ， 在 图 15-3 中 的 varray (1) (3) 等 于 6， 类 似 地 ，varray (2) (1) 等 于 1。 现 在 考虑 下 面 基 于 图 15-3 的 示例 。 


示例 ch15_4a.sql 


DECLARE 
ТҮРЕ уаггау_Суре1 IS VARRAY (4) OF INTEGER; 
TYPE уаггау type2 IS VARRAY (3) OF уаггау typel; 


уаггау1 уаггау typel := уаггау typel(2, 4, 6, 8); 
varray2 varray type2 varray type2 (уаггау1) ; 
BEGIN 
DBMS OUTPUT.PUT LINE ('Varray of integers'); 
FOR 1 IN 1..4 
LOOP 
DBMS OUTPUT .PUT LINE ('varrayl('||iļ||'): '||уаггау1(1)); 
END LOOP; 


varray2 .EXTEND; 


varray2 (2) := varray_type1 (1, 3, 5, 7); 
DBMS OUTPUT.PUT LINE (chr (10) ||'Varray of varrays of integers'); 
FOR i IN 1..2 
LOOP 
FOR j IN 1..4 
LOOP 
DBMS _ OUTPUT .PUT LINE ('varray2('||i|| 9) C||j|[|'): '||varray2 (1) (j)); 
END LOOP; 
END LOOP; 
END; 


在 这 个 示例 的 声明 部 分 ， 定 义 了 两 种 变 长 数组 类 型 。 第 一 种 类 型 ，varray type1， 是 基于 INTEGER 数 据 类 型 的 ， 并 且 最 多 可 以 包含 四 个 元 素 。 第 二 
种 类 型 ，varray_type2， 是 基于 varray_type1 的 ， 并 且 最 多 可 以 包含 三 个 元 素 ， 其 中 每 个 元 素 本 身 最 多 可 以 包含 四 个 元 素 。 接 下 来 ， 你 基于 刚刚 描述 的 类 
型 声明 两 个 变 长 数组 。 第 一 个 变 长 数组 ，varray1， 被 声明 为 varray _type1 并 被 初始 化 ， 使 得 它 的 四 个 元 素 被 填充 为 前 四 个 偶数 。 第 二 个 变 长 数 
组 ，varray2， 被 声明 为 varray_type2， 使 得 每 个 单独 的 元 素 都 是 包含 四 个 整数 的 变 长 数组 ， 并 被 切 始 化 ， 使 得 它 的 第 一 个 变 长 数组 元 素 被 填充 。 


这 个 示例 的 可 执行 部 分 ， 运 行 后 在 屏幕 上 显示 的 varray1 的 值 。 接 下 来 ， 把 varray2 的 上 限 扩展 1 个 ， 并 填充 其 第 二 个 元 素 ， 如 下 所 示 : 


varray2 (2) := varray ёуре1 (1, 3, 5, 7); 


在 这 里 ， 你 正在 使 用 varray type1 相 应 的 构造 函数 ， 因 为 varray2 的 每 一 个 元 素 都 是 基于 varray1 集 合 的 。 换 言 之 ， 可 通过 以 下 两 个 语句 来 实现 相同 的 
结果 : 


уаттаул (2) 
varray2 (2) 


затгар жей» Br Бу 07}; 
уаггау_Суре2(уаггау1); 


—Evarray hJ ATRA, ЭРЛИК РОК ИМЕН Ет ША, 
此 示例 产生 下 面 的 输出 : 


Varray of integers 
каттаулы #2 
уаггау1(2): 4 
уаггау1 (3): 6 
уаггау1 (4) : 8 


Varray of varrays of integers 
үаггау2(1) (1): 2 


Ју лоны оо нњ 


注意 分 隔 示 例 输出 的 两 个 部 分 的 空 行 。 包 仿 它 是 为 了 增加 可 读 性 ， 并 且 是 通过 在 DBMS_OUTPUT.PUT_LINE 语 句 中 添加 Oracle 的 内 置 立 数 
CHR (10) 创建 的 。 这 个 函数 添加 了 一 个 换行 ， 并 且 最 后 用 空 行 分 隔 了 输出 的 两 个 部 分 。 
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在 本 草 ， ВИ УРО НУЖКЕК ЕН, ЕУЕН, ВИА TANTEA ELAR, К, RAHNI ЯП 
Қар ВЛ AAE ТУНУУ ЕТЕП НАЧЕВ ЕНУ Ет. Бела, БИО TUER REARED ARAR., 


ЛИ тле 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 16 章 ”记录 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
: 记录 类 型 
720 
555 


在 第 11 章 ， 我 们 简要 介绍 了 记录 类 型 的 概念 。 我 们 了 解 了 记录 是 一 种 可 以 将 不 同 但 相 天 的 数据 组 合成 一 个 逻辑 单元 的 复合 数据 结构 。 我 们 还 了 解 
到 ，PL/SQL 支 持 三 种 记录 类 型 : 基于 表 的 、 基 于 游标 的 和 用 户 定 义 的 。 在 本 章 ， 你 会 重 温 基于 表 和 基于 游标 的 记录 类 型 ， 并 了 解 用 户 定 义 的 记录 类 型 。 
此 外 ， 你 还 将 了 解 包含 集合 及 其 他 记录 的 记录 (MIRER) 和 记录 集合 。 


16.1 实验 1: 记录 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 基于 表 和 基于 游标 的 记录 。 

: 使 用 用 户 定义 的 记录 。 

- 了解 记录 兼容 性 。 


记录 结构 有 点 类 似 于 一 个 数据 库 表 的 一 行 。 每 个 数据 项 都 被 存储 在 具有 自己 的 名 字 和 数据 类 型 的 字段 中 。 例 如 ， 假 设 你 有 关于 公司 的 各 种 数据 ， 如 
名 称 、 地 址 和 员工 人 数 。 把 其 中 每 个 条 目 都 用 一 个 字段 表示 的 记录 可 以 让 你 把 一 个 企业 作为 一 个 逻辑 单元 处 理 ， 从 而 更 容易 组 织 和 表示 公司 的 信息 。 


16.2 30192: MELK 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


- MRAR 


正如 前 文 所 提 到 的 ， 可 以 在 PLUSQL 中 定义 搁 套 的 记录 ， 也 融 是 说 ， 包 含 其 他 记录 和 集合 的 记录 。 包 含 府 套 记录 或 集合 的 记录 被 称 为 一 个 封 财 记录 


(enclosing record) 。 
考虑 清单 16-2 中 的 代码 片段 。 


清单 16-2 声明 启 套 记 录 


DECLARE 
TYPE name type IS RECORD 


(first name VARCHAR2 (15), 
last пате VARCHAR2 (30) ) ; 


ТҮРЕ person type: 15 
(name name type, 
street VARCHAR2 (50), 
city VARCHAR2 (25), 
state VARCHAR2 (2), 
zip VARCHAR2 (5) ) ; 


person rec person type; 


这 段 代 码 包含 两 个 用 户 自 定义 的 记录 类 型 。 第 二 个 用 户 定 义 的 记录 类 型 person _ type， 是 一 个 嵌 套 的 记录 类 型 ， 因 为 它 的 字段 name 是 name type 类 
型 的 记录 (以 粗 体 突出 显示 ) 。 


接 下 来 ， 考 虑 基于 清单 16-2 中 声明 的 馈 套 记录 的 完整 版 脚本 。 对 骨 套 记录 的 引用 以 粗 体 显示 。 


示例 ch16 7а.59 


DECLARE 
ТҮРЕ name type IS RECORD 
(first name VARCHAR2 (15) 
last пате VARCHAR2 (30) ) ; 


ТҮРЕ person type 15 RECORD 
(name name суре, 
street VARCHAR2 (50), 
сү VARCHAR2 (25), 
state VARCHAR2 (2), 
zip VARCHAR2 (5) ) ; 


person гес person type; 


BEGIN 
SELECT first_name, last_name, street_address, city, state, zip 
INTO person rec.name.first name, person rec.name.last name, 
person rec.street, person rec.city, person rec.state, 
person rec.zip 
FROM student 
JOIN zipcode USING (zip) 
WHERE rownum < 2; 


DBMS _ OUTPUT .PUT LINE ('Name: "|| 
person rec.name.first паше||' '||person rec.name.last name); 
DBMS OUTPUT .PUT LINE ('Street: '||person rec.street); 
DBMS OUTPUT .PUT LINE ('City: '| |person гес.с1су); 
DBMS OUTPUT .PUT LINE ('State: '||регвоп rec.state) ; 
DBMS OUTPUT.PUT LINE ('Zip: '| |person rec.zip) ; 
END; 


在 这 个 示例 中 ，person_rec 记 录 是 一 个 用 户 定 义 的 诅 套 记录 。 要 引用 它 的 字段 hame， 这 是 一 个 含有 两 个 字段 的 记录 ， 可 以 使 用 清单 16-3 所 示 的 语 
法 。 在 此 清单 中 包含 括号 只 为 了 提高 可 读 性 。 


清单 16-3 引用 启 套 记录 的 个 别 字 段 


封闭 记录 . ( 谱 套 记录 或 识 套 集合 ) .字段 名 


在 本 例 中 ，person _re< 是 封闭 记录 ， 因 为 它 包 含 nameie 录 作为 其 字段 之 一 。 换 句 话 说 ，name 记 录 被 腐 套 在 person_recie 录 中 。 


此 示例 产生 下 面 的 输出 : 
Мате: George Kocka 
Street: 24 Beaufield St. 
Сіёу: Dorchester 
State: MA 
Zip: 02124 


RELREJUBA- CRAFF 2 —, E КАЧАН, AEN, Ера Е Ја ЕЕ ВВВ РАЧЕ 94А, 


示例 ch16 8a.sql 


DECLARE 


ТҮРЕ last name type IS TABLE OF student.last_name%TYPE 
INDEX BY PLS INTEGER; 


ТҮРЕ zip _ info _ type IS RECORD 
(zip VARCHAR2 (5), 
last name tab last_name_type); 


CURSOR пате сог (р 21р VARCHAR2) IS 
SELECT last name 


FROM student 
WHERE zip = p zip; 


zip_info_rec zip_info_type; 


Уу 2ір VARCHAR2 (5) := '&5у zip'; 
у іпдех PLS INTEGER := 0; 
BEGIN 
Zip е Какы + гес.2ір := у 21р; 
DBMS OUTPUT .PUT LINE ('ZIP: '||2ір info гес.2ір); 
FOR name гес IN пате cur (у 71р) 
LOOP 
v_index := v_index + 1; 


zip info rec.last пате tab(v_index) := name гес.1аѕі name; 
DBMS OUTPUT . PUT_LINE 


('Names('||v index||'): '||zip info rec.last name ёар (у іпӣех)); 
END LOOP; 


END; 


这 个 示例 中 的 声明 部 分 包含 关联 数组 类 型 last name type、 记录 类 型 zip info type 和 柑 套 的 用 户 定 义 的 记录 zip_info_rec 的 声明 。zip info гес 
last пате tab 字段 是 借助 游标 name_cur 填 充 的 天 联 数组 。 另 外 ， 声 明 部 分 含有 两 个 变量 


№58, v _zip 和 v index, 258ү zip 用 于 存储 在 运行 时 提供 的 邮政 编 
码 传 入 值 。 变 量 v_ index 用 于 填充 关联 数组 last_ name tab。 脚 本 的 可 执行 部 分 对 各 个 记录 字段 ，zip 和 last_ name tabl. lastname tab 是 一 个 关联 
数组 ， 它 是 通过 游标 FOR 循环 填充 的 。 


当 在 运行 时 提供 邮政 编码 11368 时 ， 这 个 脚本 会 产生 以 下 的 输出 : 


ZIP: 11368 

Names (1): Lasseter 
Names (2): Miller 
Names (3): Boyd 
Names (4): Griffen 


Names (5): Hutheesing 
Names (6): Chatman 


16.3 ”实验 3: 记录 集合 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 使 用 记录 集合 。 


在 16.2 节 中 ， 我 们 看 到 了 记录 的 一 个 字段 被 定义 为 一 个 关联 数 组 的 骨 套 记录 的 示例 。 在 PL/SQL 中 还 可 以 定义 记录 的 集合 (例如 ， 一 个 关联 数组 ， 其 
元 素 类 型 是 基于 游标 的 记录 ) 。 下 面 的 示例 说 明了 这 种 用 法 。 


示例 ch16 9a.sq| 


DECLARE 
CURSOR name сиг 15 
SELECT first name, last name 
FROM student 
WHERE ROWNUM <= 4; 


ТҮРЕ пате type IS TABLE OF пате cur%ROWTYPE 
INDEX BY PLS INTEGER; 


пате 七 ab пате Суре; 
у іпдех INTEGER := 0; 
BEGIN 
FOR name rec IN name cur 
LOOP 
v_index := v_index + 1; 


пате 七 ab (v_index).first_name := name_rec.first_name; 
name tabl(lv index) .last name := пате rec.last пате; 


DBMS OUTPUT.PUT LINE('First Name('||v index ||'): | 
пате Сар (у index) .first пате); 
DBMS OUTPUT .PUT LINE('Last Name (' | |у index ||'): ! || 
пате 七 ab (у іпдех) .last пате) ; 
END LOOP; 
END; 


XAAR ARNA пате сиг ЈЕ М, ББА АЗАУ. ШК, БУЕ М TARKA, KAARI ЯЕ 
义 为 %ROWTYPE 的 基于 游标 的 记录 。 另 外 ， 此 脚本 还 定义 了 一 个 关联 数组 变量 ， 以 及 随后 用 于 引用 关联 数组 的 各 行 的 索引 变量 。 

本 例 的 执行 部 分 填充 此 关联 数组 ， 并 在 屏幕 上 显示 记录 。 在 前 面 的 示例 中 用 来 引用 数组 的 各 个 元 素 的 符号 如 清单 16-4 所 示 。 

清单 16-4 引用 记录 的 集合 


集合 名 称 (索引 ) .记录 字段 名 1 集合 名 称 (索引 ) .记录 字段 名 2 
http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/OEBPS/Text/.. .集合 名 称 (索引 ) .记录 字段 名 N 


要 引用 数组 中 的 每 一 行 ， 融 像 在 前 面 所 有 使 用 集合 的 示例 那样 使 用 素 引 变量 。 但 是 ， 由 于 这 种 天 联 数组 的 每 一 行 都 是 一 个 记录 ， 所 以 还 必须 引用 基 
础 记录 的 各 个 字段 。 


此 示例 产生 下 面 的 输出 : 


First Name (1) : George 
Last Name (1) : Kocka 
First Мате (2): Janet 
Last Name (2) : Jung 
First Name (3): Kathleen 
Last Name (3): Mulroy 
First Name (4) : Joel 
Last Name (4): Brendler 


接 下 来 ， 考 虑 前 面 的 示例 的 一 个 修改 版 本 。 在 这 个 版 本 中 ， 和 集合 类 型 已 经 从 一 个 关联 数组 改 为 谋 套 表 (所 有 的 更 改 都 以 粗 体 显示 ) 。 
示例 ch16 9b.sq| 
DECLARE 
CURSOR name сиг 15 
SELECT first name, last name 
FROM student 
WHERE ROWNUM <= 4; 
TYPE name type IS TABLE ОЕ name cur%ROWTYPE; 


name tab name type := name type(); 
v_index INTEGER := 0; 


BEGIN 
FOR пате гес IN пате сиг 

LOOP 
v_index := v_index + 1; 


name tab .EXTEND; 


name tab (у index) .first паме := пате rec.first name; 

name Сар (у index) .last пате := пате гес.1аѕі пате; 

DBMS ООТРОТ.РОТ LINE ('Рігѕ Name (' | |у іпаех | |'): '|| 
пате сар (у index) .first пате); 

DBMS OUTPUT.PUT LINE ('Іаѕє Name (' | |у іпаех | |'): '|| 
пате ‘ар (у іпдех) .last пате) ; 

END LOOP; 
END; 


此 脚本 与 以 前 版 本 的 脚本 的 唯一 区 别 是 集合 类 型 声明 和 集合 初始 化 所 需要 的 方法 。 对 记录 及 其 各 个 字段 的 所 有 5 引用 都 保持 不 变 。 这 个 版 本 的 脚本 生 
成 的 输出 与 早期 版 本 相同 : 


First Name (1) : George 
Last Name (1) : Kocka 
First Name (2): Janet 
Last Name (2) : Jung 
First Name (3): Kathleen 
Last Name (3): Mulroy 
First Name (4): Joel 
Last Name (4) : Brendler 


到 目前 为 止 ， 你 已 经 看 到 了 在 基于 指针 的 记录 类 型 上 定义 的 记录 集合 示例 。 接 着 ,考虑 在 用 户 定 义 记 录 类 型 上 定义 的 记录 集合 的 示例 |。 


示例 ch16 10a.sd| 


DECLARE 
CURSOR enroll cur IS 
SELECT first_name, last_name, COUNT (*) total 
FROM student 
JOIN enrollment USING (student_id) 
GROUP BY first_name, last_name; 
TYPE enroll гес _ type IS RECORD 
(first_name VARCHAR2 (15), 
last name VARCHAR2 (30), 
enrollments INTEGER) ; 


TYPE enroll array type IS TABLE OF enroll гес type 
INDEX BY PLS _ INTEGER; 


епго11 сар епго11 -array туре; 
у index INTEGER := 0; 
ВЕСІМ 
РОК епго11 гес ІМ епго11 сог 
LOOP 
v_index := v_index + 1; 


епго11 ёар (у іпӣех) .first пате := enroll_rec.first_name; 
enroll ёар (у index) .last пате enroll rec.last пате; 
епго11 ёар (у іпӣех) .enrollments := enroll_rec.total; 


IF у index <= 4 
THEN 
DBMS OUTPUT.PUT LINE('First Name('||v index||'): '|| 
enroll ёар (у index) .first пате); 
DBMS OUTPUT .PUT LINE('Last Name('||v index||'): '|| 
enroll ёар (у index) .last пате) ; 
DBMS OUTPUT .PUT LINE ('Enrollments (' | |у іпаех | |'): '|| 
enroll ёар (у іпаех) .enrollments) ; 
DBMS ООТРОТ.РОТ LINE ('------------------- - '); 
END ТЕ; 
END LOOP; 
END; 


脚本 的 声明 部 分 包含 一 个 用 户 定 义 的 记录 类 型 enroll_rec_ type， 它 随后 在 关联 数组 类 型 enroll аггау type 的 声明 中 使 用 。 最 后 ， 关 联 数组 
enroll tab， 是 基于 enroll array type 声 明 的 。 


在 脚本 的 可 执行 部 分 ， 关 联 数组 enroll_tab， 通 过 游标 FOR 循环 被 填充 ， 在 屏幕 上 显示 关联 数组 的 前 四 个 记录 。 
在 运行 时 ， 此 脚本 产生 如 下 输出 : 


First Мате (1): Judy 
Last Name (1) : Sethi 
Enrollments(1): 1 
First Name (2) : Larry 
Last Name (2): Walter 
Enrollments (2): 2 
First Name (3): Winsome 
Last Name (3): Laporte 
Enrollments (3): 2 
First Name (4): Hiedi 
Last Name (4) : Lopez 
Enrollments (4): 1 
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在 本 章 ， 我 们 了 解 了 PL/SQL 驻 持 的 不 同类 型 的 记录 ， 并 了 解 了 如 何 操纵 单个 记录 元 素 。 我 们 也 了 解 了 记录 的 兼容 性 ， 并 探讨 了 它 是 如 何 影 响 对 记录 
相互 赋值 或 比较 的 能 力 的 。 此 外 ， 我 们 友 现 了 不 同 的 记录 类 型 可 以 相互 底 套 ， 并 学 会 了 如 何 定义 和 操作 包含 集合 元 素 的 记录 。 最 后 ， 我 们 学 会 了 如 何 定 


义 和 处 理 记 录 集 合 。 


顺便 说 襄 
配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 17 草 ”本 地 动态 SQL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
. EXECUTE IMMEDIATE ё 


- OPEN-FOR、FETCH 和 CLOSE 语句 

一 般 情况 下 ，PL/SQL 应 用 程序 执行 指定 的 任务 并 操纵 一 组 静态 表 。 例 如 ， 一 个 存储 过 程 可 能 会 接受 一 个 学 生 |D， 并 返回 学 生 的 名 字 和 姓 。 在 这 样 的 
过 程 中 ， 一 个 SELECT 语 句 是 预先 已 知 的 ， 并 被 编译 为 程序 的 一 部 分 。 这 样 的 SELECT 语 句 被 称 为 静态 的 ， 因 为 它们 在 各 次 执行 之 间 不 会 更 改 。 

现在 ， 考 虑 一 种 不 同类 型 的 PL/SQL 应 用 程序 ， 其 中 的 SQL 语 句 是 基于 一 组 在 运行 时 指定 的 参数 动态 建立 的 。 例 如 ， 一 个 应 用 程序 可 能 需要 基于 预先 
不 知道 的 表 和 列 名 ， 或 根据 请 求 报告 的 用 户 指定 的 数据 排序 和 分 组 的 SQL 语句 构建 各 种 报告 。 同 样 ， 另 一 个 应 用 程序 可 能 需要 基于 在 运行 时 用 户 指定 的 操 
作 来 创建 或 删除 表 或 其 他 数据 库 对 象 。 由 于 这 些 SQL 语 句 是 动态 产生 的 并 可 能 会 随时 间 友 生 更 改 ， 所 以 它们 被 称 为 动态 的 (dynamic) 。 

PL/SQL 有 一 个 功能 叫做 本 地 动态 (native dynamic) SQL (简称 “动态 SQL”) ， 可 以 帮助 你 建立 类 似 于 以 前 摘 述 的 那些 应 用 程序 。 使 用 动态 SQL 
使 得 这 类 应 用 程序 灵活 、 多 功能 ， 并 且 简 洁 ， 因 为 它 省 去 了 复杂 的 编程 方法 。 本 地 动态 SQL 比 Oracle 提 供 的 有 类 似 功能 的 DBMS_SQL 包 使 用 起 来 更 加 方 


便 。 在 本 章 ， 我 们 将 学 习 如 何 创建 和 使 用 动态 SQL。 


17.1 实验 1: EXECUTE IMMEDIATE 语 句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 

- 使 用 EXECUTE IMMEDIATE 语 身 。 

. 使 用 EXECUTE IMMEDIATE 语 名 时 避免 ORA 错 误 。 
一 般 来 说 ， 动 态 SQL 语 句 是 由 你 的 程序 基于 在 运行 时 指定 的 参数 构建 并 作为 字符 串 存 储 的 。 这 些 字符 串 必 须 包 含有 效 的 SQL 语 句 或 PL/SQL 人 代码。 考 
虑 下 面 的 动态 SQL 语 句 示例 : 


'SELECT first name, last name FROM student 
WHERE student іа = :student 14' 


这 个 SELECT 语句 对 于 给 定 的 学 生 ID 返 回 学 生 的 姓 和 名 字 。 学 生 1D 的 值 事 先是 不 知道 的 ， 它 倍 助 一 个 绑 定 参数 (bind argument) ，:student _id 来 指 
。 绑 定 参数 充当 一 个 未 声明 的 标识 符 的 占 位 待 ， 它 的 名 字 必 须 用 冒号 作为 前 缀 。 因 此 ，PL/SQL 不 区 分 下 述 语句 : 


ali 


'SELECT first_name, last_name 

FROM student WHERE 

student 1а = :student 14' 

'SELECT first_name, last_name 

FROM student WHERE student id = :id' 


为 了 处 理 动态 SQL 语句 ， 可 以 使 用 EXECUTE IMMEDIATE 或 OPEN-FOR、FETCH 和 CLOSE 语句 。EXECUTE IMMEDIATE 用 于 单行 SELECT 语句 、 所 
有 的 DML 语 句 和 DDL 语 句 ， 而 OPEN-FOR、FETCH 和 CLOSE 语句 用 于 多 行 的 SELECT 语句 和 引用 游标 。 


你 知道 吗 ? 


为 了 提高 动态 SQL 语句 的 性 能 ， 也 可 以 使 用 BULK EXECUTE IMMEDIATE, BULK FETCH, FORALLÆCOLLECT INTO 语 句 。 然 而 ， 这 些 语句 超出 
了 本 书 的 范围 ， 并 且 不 包括 在 这 里 。 你 可 以 在 Otacle 的 联机 帮助 中 找到 它们 的 用 法 的 详细 解释 和 示例 。 


17.2 实验 2: OPEN-FOR、FETCH 和 CLOSE 语句 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 OPEN-FOR 语 句 。 
- 使 用 FETCH 语 句 。 


- 使 用 CLOSE 语 铝 。 


OPEN-FOR、FETCH 和 CLOSE 语句 用 于 多 行 查 询 或 游标 。 这 个 概念 与 你 在 第 11 章 中 遇 到 的 静态 游标 处 理 是 非 营 相似 的 。 正 如 静态 游标 的 情况 ， 首 先 
将 一 个 游标 变量 与 一 个 查询 天 联 。 接 下 来 ， 打 开 此 游标 变量 ， 使 其 指向 结果 集 的 第 一 行 。 接 下 来 ， 从 结果 集中 逐 行 读 取 。 最 后 ， 当 所 有 行 都 已 被 处 理 
时 ， 关 闭 游 标 (游标 变量 ) 。 


17.3 RA 


在 本 章 ， 我 们 学 习 了 如 何在 PL/SQL 中 建立 本 地 动态 SQL 语句 ， 当 需要 编写 灵活 的 代码 时 ， 就 会 用 到 这 样 的 语句 。 动 态 SQL 可 以 在 运行 时 执行 不 同 的 
SQL 语句 ， 从 而 使 得 SQL 的 多 个 元 素 都 可 以 更 改 ， 比 如 表 和 列 。 本 章 研究 的 第 一 个 方法 是 EXECUTE IMMEDIATE 语 句 ， 你 还 学 到 了 如 何在 使 用 此 方法 时 
防止 各 种 Oracle 错 误 。 然 后 我 们 详细 解释 了 OPEN-FOR、FETCH 和 CLOSE 语句 ， 这 些 方法 用 于 多 行 查询 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 18 章 ”批量 3QL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- FORALL; 6J 


· BULK COLLECTF ё) 


在 SQL 语句 中 绑 定 集合 


在 第 1 章 ， 我 们 了 解 到 PL/SQL 引 警 把 SQL 语句 上 太 送 到 SQL 引 警 ， 然 后 将 结果 返回 到 PL/SQL 引 警 。PL/SQL 和 SQL 引擎 之 间 的 通信 也 被 称 为 上 下 文 切 
换 。 这 些 上 下 文 切换 有 一 定 的 相关 性 能 开销 。 然 而 ，PL/SQL 语 言 具 有 许多 功能 ， 可 以 最 大 限度 地 降低 性 能 开销 ， 这 统称 为 批量 SQL (bulk SQL) 。 一 般 
来 说 ， 如 果 一 个 SQL 语 句 影 响 4 行 以 上 ， 批 量 SQL 就 可 能 显著 提高 性 能 。 批 量 SQL 支 持 对 SQL 语 句 及 其 结果 的 批量 处 理 ， 它 由 两 个 功能 组 成 ，FORALL 语 句 
和 BULK COLLECT 子 句 。 


从 Oracle 12c 开 始 ， 对 集合 数据 类 型 和 批量 SQL 的 支持 已 经 扩展 到 动态 SQL。 因 此 ， 当 你 使 用 EXECUTE IMMEDIATE 语 句 或 OPEN-FOR、FETCH 和 
CLOSE 语句 时 能 够 绑 定 集合 变量 。 在 18.3 节 中 将 详细 说 明 这 种 功能 。 


18.1 实验 1: FORALL 语 各 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 FORAIL 语 句 。 
- 使 用 SAVE EXCEPTIONS 选 项 。 
- 使 用 INDICES OF 选项 。 
- 使 用 VALUES OF 选项 。 
考虑 由 数字 FOR 循环 封闭 的 和 迭代 10 次 的 INSERT 语 句 ， 如 清单 18-1 所 示 。 


清单 18-1 由 一 个 数字 FOR 循环 封闭 的 INSERT 语 句 


FOR 1 TN Ls 10 


LOOP 
INSERT INTO table name 
VALUES (...); 

END LOOP; 


这 个 INSERT 语 句 将 从 PL/SQL5 引 | 擎 被 友 送 到 SQL3 引 | 擎 10 次 。 换 句 话说 ， 发 生 10 次 上 下 文 切 换 。 但 是 ， 如 果 把 数字 FOR 循 环 蔡 换 为 FORALL 语 句 ， 那 么 
INSERT 语 句 束 只 从 PL/SQL 引 苟 友 送 到 SQL3 引 | 敬一 次 ,但 它 仍然 执行 10 次 。 在 这 种 情况 下 ， 在 PL/SQL 和 SQL 之 间 只 有 一 次 上 下 文 切换 。 


18.2 20132: BULK COLLECT 子 名 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 BULK COLLECT 子 句 。 


BULK COLLECT 子 句 读 取 结 果 的 批 次 ， 并 把 它们 从 SQL 引擎 取 回 到 PL/SQL 引 警 。 人 例如， 考虑 针对 STUDENT 表 返 回 学 生 的 ID、 名 字 和 姓 的 游标 。 一 
上 且 打 开 此 游标 ， 这 些 行 就 被 逐 行 地 读 取 ， 直 到 所 有 行 都 已 被 处 理 为 止 。 然 后 游标 关闭 。 这 些 步骤 如 下 面 的 示例 所 示 。 


示例 ch18 6a.sd| 


DECLARE 
CURSOR student cur IS 
SELECT student_id, first_name, last_name 
FROM student; 


BEGIN 
FOR rec IN student сиг 
LOOP 
DBMS OUTPUT.PUT LINE ('student іа: '||rec.student_id); 
DBMS OUTPUT .PUT LINE ('first name: '||rec.first name),; 
DBMS OUTPUT.PUT LINE ('last name: '||rec.last пате); 
END LOOP; 
END; 


回顾 一 下 ， 游 标 FOR 循 环 隐 陈 地 打开 和 关闭 游标 并 读 取 游 标记 录 。 


可 以 利用 BULK COLLECT 子 句 来 完成 从 STUDENT 表 读 取 记 录 的 相同 任务 。 这 里 的 不 同 之 处 在 于 ，BULK COLLECT 子 句 将 一 次 性 从 STUDENT 表 读 取 
所 有 的 行 。 因 为 BULK COLLECT 读 取 多 个 行 ， 所 以 这 些 行 被 存储 在 集合 变量 中 。 


在 前 面 示例 以 下 的 修改 版 本 中 ， 游 标 处 理 被 替换 为 BULK COLLECT 子 句 。 
示例 ch18 6b.sql 


DECLARE 
-- 定义 要 被 вок COLLECT 子 名 使 用 的 集合 类 型 和 变量 
ТҮРЕ student іа type IS TABLE OF student.student 1а$ТҮРЕ; 
TYPE first_name_type IS TABLE OF student.first_name%TYPE; 
TYPE last name type IS TABLE OF student.last_name%TYPE; 


ѕсџдепі іа ёар Btudent іа Туре; 
first пате ёар first пате type; 
last пате ёар last пате type; 


ВЕСІМ 
-- 通过 BULK COLLECT 子 名 一 次 读 取 所 有 学 生 的 数据 
SELECT student_id, first_name, last_name 
BULK COLLECT INTO student_id tab, first_name_tab, last пате 七 ab 
FROM student; 


FOR i IN student id tab.FIRST..student id tab.LAST 


LOOP 
DBMS OUTPUT.PUT LINE ('student id: '||student id tab (i)); 
DBMS OUTPUT.PUT LINE ('first_name: '||first_name_tab(i)); 
DBMS OUTPUT .PUT LINE ('last пате: '||last name tab(i)); 
END LOOP; 
END; 


这 个 脚本 声明 了 三 个 谋 套 表 类 型 和 变量 。 这 些 变量 用 于 存储 带 有 BULK COLLECT 子 句 的 SELECT 语句 返回 的 数据 。 因 为 这 个 版 本 的 脚本 使 用 BULK 
COLLECT 子 句 ， 所 以 无 需 声 明和 处 理 游标 。 


你 知道 吗 ? 


当 谱 套 表 是 通过 带 BULK COLLECT 子 多 的 SELECT 填充 时 ， 它 们 被 初始 化 和 自动 扩展 。 回 顾 一 下 ， 识 套 表 通 常 必 须 在 使 用 它 之 前 通过 调用 与 徐 套 表 
类 型 具有 相同 名 称 的 构造 隙 数 来 初始 化 。 一 旦 租 套 表 被 初始 化 ， 在 可 以 赋予 它 下 一 个 值 之 前 ， 必 须 通 过 EXTEND 方 法 对 它 进行 扩展 。 


为 了 显示 已 被 读 入 各 个 集合 的 数据 ， 此 脚本 通过 数字 FOR 循 环 遍 历 它 们 。 注 意 ， 循 环 计 数 器 的 上 限 和 下 限 是 通过 FIRST 和 LAST 方 法 指定 的 。 
你 知道 吗 ? 


BULK COLLECT 子 多 类 似 于 SELECT 语句 ， 当 不 返回 任何 记录 时 不 引发 NO_DATA_FOUND 异 常 的 游标 循环 。 因 此 ， 检 查 它 所 生成 的 集合 中 是 否 包 
含 任何 数据 被 认为 是 很 好 的 做 法 。 


因为 BULK COLLECT 子 句 不 限制 集合 的 大 小 并 目 动 扩展 它 ， 当 SELECT 语句 返回 大 量 数据 时 ， 对 结果 集 加 以 限制 也 是 一 个 不 错 的 主意 。 这 可 以 利用 


BULK COLLECT 与 游标 SELECT 语句 并 通过 添加 LIMIT 选 项 来 实现 。 
示例 ch18 6c.sqd| 


DECLARE 
CURSOR student cur IS 
SELECT student_id, first_name, last_name 
FROM student; 
-- 定义 要 被 BULK COLLECT 子 名 使 用 的 集合 类 型 和 变量 
TYPE student іа type IS TABLE OF Student .Stuqaent 14%ТҮРЕ; 
TYPE first_name_type IS TABLE OF student.first_name%TYPE; 
ТҮРЕ last_name_type IS TABLE OF student.last_name%TYPE; 


student іа tab student іа type; 
first name tab first_name_type; 
last name tab last name type; 


-- 定义 要 被 LIMIT 子 句 使 用 的 变量 
v limit PLS INTEGER := 50; 


BEGIN 
OPEN student_cur; 
LOOP 
-- 一 次 读 取 50 íT 
FETCH student сиг 
BULK COLLECT INTO student id tab, first name tab, last name tab 
GIMIT v Limit; 


EXIT WHEN student іа tab.COUNT = 0; 


FOR i IN student id tab.FIRST..student id tab.LAST 
LOOP 
DBMS OUTPUT .PUT LINE ('student id: '||student іа tab(i)); 
DBMS OUTPUT.PUT LINE ('first name: '||first_name_tab(i)); 
DBMS OUTPUT.PUT LINE ('last name: '||last пате ёар (і)) 
END LOOP ; 
END LOOP; 
CLOSE student сиг; 
END; 


+ 


' 


这 个 版 本 的 脚本 采用 BULK COLLECT 子 句 的 LIMIT 选 项 来 从 STUDENT 表 一 次 读 取 50 行 。 换 名 话说， 每 个 集合 将 包含 最 多 50 个 记录 。 为 了 完成 这 个 任 
务 ， 我 们 将 BULK COLLECT 子 句 与 游标 循环 结合 使 用 。 在 本 例 中 ， 循 环 的 退出 条 件 基 于 集合 中 的 记录 数 ， 而 不 是 student_ cur%NOTFOUND 属 性 。 

请 注意 在 屏幕 上 显示 信息 的 数字 FOR 循环 是 如 何 被 移动 到 游标 循环 中 的 。 之 所 以 这 么 做 ， 是 因为 被 BULK COLLECT 子 句 新 读 取 的 每 一 批 50 个 记录 将 
取代 在 上 一 次 迭代 中 读 取 的 前 一 批 50 个 记录 。 

到 目前 为 止 ， 你 已 经 看 到 了 把 数据 读 取 到 基础 元 素 是 简单 数据 类 型 ， 如 NUMBER 或 VARCHAR2 的 集合 中 的 BULK COLLECT 子 句 的 示例 。 然 
m, BULK COLLECT 子 句 也 可 以 用 于 把 数据 读 取 到 记录 或 对 象 集合 中 。 对 象 集 合 将 在 第 23 章 中 讨论 。 在 前 面 示例 的 以 下 修改 版 本 中 ， 学 生 数 据 被 读 入 用 
户 定义 的 记录 集合 中 。 


示例 ch18 6d.sql 


DECLARE 
CURSOR student_cur IS 
SELECT student id, first паме, last пате 


FROM student; 


-- 定义 记录 类 型 

ТҮРЕ student_rec IS RECORD 
(student id student .student id%TYPE, 
first name student .first name%®%TYPE, 
last пате student.last пате%ТҮРЕ); 


-- 定义 集合 类 型 


TYPE student type IS TABLE OF student rec; 


-- 定义 集合 变量 


student 七 ab student type; 


-- 定义 要 被 LIMIT 子 句 使 用 的 变量 


v limit PLS INTEGER := 50; 


BEGIN 
OPEN student cur; 
LOOP 
-- 一 次 读 取 50 行 
FETCH student сог BULK COLLECT INTO student tab LIMIT v limit; 


EXIT WHEN student tab.COUNT = 0; 


FOR і IN student tab.FIRST..student tab.LAST 
LOOP 
DBMS OUTPUT.PUT LINE ('student_id: '||student tab(i) .student іа); 
DBMS OUTPUT .PUT LINE ('first_name: '||student tab (і) .Ғігѕё пате); 
DBMS OUTPUT .PUT LINE ('last_name: '||student tab(i).last name),; 
END LOOP; 
END LOOP; 
CLOSE student сит; 
END; 


在 这 个 版 本 的 脚本 中 ， 由 游标 返回 的 结果 集 被 读 取 到 用 户 定义 的 记录 集合 student tab 中 。 因 此 ， 带 有 BULK COLLECT 选 项 的 FETCH 语 句 并 不 需要 引 
用 单个 记录 元 素 。 
本 示例 的 所 有 版 本 都 产生 相同 的 输出 ， 这 里 显示 了 它 的 一 部 分 : 


student id: 
first_name: 


230 
George 


last_name 


student id: 
first_name: 
: Jung 
student 1а: 
first_name: 
: Mulroy 


last_name 


last_name 


student іа: 
first_name: 
: Brendler 


last_name 


: Коска 


дла 
Janet 


233 
Kathleen 


234 
Joel 


到 目前 为 止 ， 你 已 经 看 到 了 如 何 使 用 珊 BULK COLLECT 子 句 的 SELECT 语 句 。 但 是 ,通常 情况 下 ULK COLLECT 是 用 于 INSERT、UPDATE 和 DELETE 
语句 的 。 在 这 种 情况 下 ，BULK COLLECT 子 句 可 以 与 RETURNING 子 句 一 起 使 用 ， 如 下 面 的 示例 所 示 。 


示例 ch18 7a.sql 


DECLARE 
-- 定义 集合 类 型 和 变量 
ТҮРЕ гом пиш type IS TABLE OF NUMBER INDEX BY PLS INTEGER; 
TYPE row text type IS TABLE OF VARCHAR2 (10) INDEX BY PLS INTEGER; 


гом пит tab гом num Суре; 
гом сех ёар гом text уре; 


BEGIN 
DELETE FROM test 
RETURNING row num, гом text 
BULK COLLECT INTO ром пит tab, row text tab; 
DBMS _ OUTPUT .PUT LINE ('Deleted '||SQL%ROWCOUNT||' rows:'); 


FOR і ІМ гом пот tab.FIRST..row_ num tab .LAST 


LOOP 
DBMS OUTPUT .PUT_LINE 
("гом пот = '||row num tab (i)||' row_text = ' ||row_text_tab(i)); 
END LOOP; 
COMMIT; 
END; 


此 脚本 删除 在 18.1 节 中 创建 并 填充 的 TEST 表 的 记录 。 DELETE 语 句 通过 RETURNING 子 句 返 回 ROW_NUM 和 ROW_TEXT 值 。 这 些 值 然后 由 BULK 
COLLECT 子 句 读 取 到 两 个 集合 ，row_num _tab 和 row_text_tab 中 。 接 着 ,为 了 显示 已 读 入 单个 集合 中 的 数据 ， 通 过 数字 FOR 循 环 来 遍历 它们 。 


在 运行 时 ， 此 脚本 将 产生 如 下 输出 : 


Deleted 7 rows: 

гом пат = 2 гом text = row 
row num = 3 row text = row 
гом пат = 4 гом text = row 
гом пат = 6 гом text = гом 
гом пит = 8 гом text = гом 
гом пит = 9 гом text = гом 
гом пат = 10 гом text = гом 10 


\D СО юж о м 


正如 前 面 所 提 到 的 ，BULK COLLECT 子 句 类 似 于 当 没 有 行 由 SELECT 语 句 返 回 时 不 会 产生 一 个 NO_DATA_FOUND 异 常 的 游标 循环 。 下 面 的 示例 说 明 
TX— M. 


示例 ch18 8a.sql 


DECLARE 
-- 定义 集合 类 型 和 变量 
ТҮРЕ гом num type IS TABLE OF NUMBER INDEX BY PLS INTEGER; 
TYPE row text type IS TABLE OF VARCHAR2 (10) INDEX BY PLS INTEGER; 


гом num tab гом num type; 
row text tab row text type; 


BEGIN 
SELECT гом num, row text 
BULK COLLECT INTO row_num tab, row text_tab 
FROM test; 


FOR i IN row num tab.FIRST..row num 七 ab .LAST 


LOOP 
DEMS ООТРОТ.РОТ LINE 
("гом пит = '||row num tab(i)||' row_text = ' ||row text tab(i)); 
END LOOP; 


END; 


在 这 个 示例 中 ， 数 据 被 从 TEST 表 查询 出 来 并 填充 到 两 个 集合 ，row_num _tab 和 row_text_tab 中 。 这 是 通过 BULK COLLECT 子 句 来 完成 的 。 接 着 ,将 
集合 的 数据 通过 数字 FOR 循环 显示 在 屏幕 上 ， 用 由 row_num tab.FIRST 和 row_num _tab.LAST 方 法 返回 的 值 作 循环 的 下 限 和 上 限 。 


乍 一 看 ， 这 个 示例 似乎 与 早 些 时 候 在 这 个 实验 中 出 现 的 示例 ch18 6b.sq| 非 党 相似 ， 因 为 它们 遵循 相同 的 步骤 。 第 一 ， 声 明 集合 类 型 和 变量 。 第 二 ， 
把 数据 选择 到 集合 变量 中 。 第 三 ， 在 屏幕 上 显示 集合 变量 中 的 数据 。 然 而 ， 在 运行 时 ， 此 脚本 引 友 以 下 异常 : 


ORA-06502: PL/SQL: numeric or value error 
ORA-06512: at line 14 


这 个 错误 是 由 


FOR і IN row num 七 ab .FIRST. .row num tab.LAST 


语句 导致 的 ， 因 为 集合 变量 中 没有 任何 数据 。 因 为 TEST 表 中 的 数据 在 ch18_7a.sql 示 例 中 删除 了 ， 所 以 会 发 生 这 种 情况 。 为 了 解决 这 个 问题 ， 此 示例 
应 作 如 下 修改 〈 受 影响 的 语句 以 粗 体 显示 ) : 


示例 ch18 8b.sql 


DECLARE 
TYPE row_num type IS TABLE OF NUMBER INDEX BY PLS INTEGER; 
TYPE row text суре IS TABLE ОЕ VARCHAR2 (10) INDEX BY PLS INTEGER; 
гом num tab row num type; 
row text tab row text type; 


BEGIN 
SELECT гом пот, row text 


BULK COLLECT INTO гом num tab, row text 七 ab 
FROM test; 


IF row num 七 ab .COUNTIT != 0 


THEN 
FOR і ІМ гом num tab.FIRST..row_num 七 ab .DAST 
LOOP 
DBMS OUTPUT .PUT LINE 
("гом пит = '||row_num tab (i)||' row text = ' || гом text tab(i) ) ; 
END LOOP; 
ELSE 
DBMS OUTPUT.PUT LINE ('row num tab.COUNT = '||row num tab .COUNT) ; 
DBMS OUTPUT.PUT LINE ('row text tab.COUNT = '||row text tab.COUNT) ; 
END IF; 
END; 


在 运行 时 ， 这 个 版 本 的 脚本 不 引起 任何 异常 。 当 COUNT 万 法 返回 0 时 ，IF 语 句 的 计算 结果 为 FALSE， 如 以 下 的 输出 所 示 : 
гом пит tab.COUNT = 0 
гом text 上 ab .COUNI = 0 


在 本 章 ， 我 们 已 经 看 到了 如 何 使 用 FORALL 语 句 和 BULK COLLECT 子 句 。 现 在 我 们 将 考虑 结合 这 两 种 技术 的 一 个 示例 。 此 示例 使 用 MY _ZIPCODE 
表 ， 它 是 基于 ZIPCODE 表 创建 的 。 注 意 ，CREATE TABLE 语 句 创建 一 个 空 表 ， 因 为 在 WHERE 子 句 中 指定 的 标准 不 返回 任何 记录 。 


示例 ch18 9a.sql 


CREATE TABLE my zipcode AS 
SELECT * 

FROM zipcode 

WHERE 1 = 2; 


DECLARE 
-- 声明 集合 类 型 
TYPE string type IS TABLE OF VARCHAR2 (100) INDEX BY PLS INTEGER; 
ТҮРЕ дасе type IS TABLE ОЕ DATE INDEX BY PLS INTEGER; 


-- 声明 要 被 FORALL 语句 使 用 的 集合 变量 


zip 七 ab string_type; 
сісу tap string type; 
state_tab string_type; 
cr ру tab string_type; 
cr date tab дасе гуре; 

поа ру 七 ab string Суре; 


поа дасе tab date type; 


v_rows INTEGER := 0; 
BEGIN 


-- 填充 各 个 集合 
SELECT * 
BULK COLLECT INTO zip tab, city tab; state ёар, сг by ѓар, 
cr date_tab, mod_by tab, mod date_tab 
FROM zipcode 
WHERE state = 'СТ'; 


-- 填充 MY _ ZIPCODE Ж 
FORALL i in 1..zip tab.COUNT 
INSERT INTO my_zipcode 
(zip, city, state, created by, created date, modified by, 
modified date) 
VALUES 
(21р ёар(і), сісу Баһ) state ёар(і), пт Бру tabii), 
cr date tab(i), mod by сар (і), mod дасе бар (1)); 
СОММІТ; 


-- 检查 有 多 少 个 记录 被 添加 到 МҮ ZIPCODE Ж 
SELECT COUNT (*) 

INTO v_rows 

FROM my zipcode; 


DBMS OUTPUT.PUT LINE (v_rows||' records were added to MY_ZIPCODE table') ; 
END; 


这 个 脚本 用 从 ZIPCODE 表 中 选择 的 记录 来 填充 MY_ZIPCODE 表 。 为 了 局 用 BULK COLLECT 和 FORALL 语 句 ， 它 使 用 了 7 个 集合 。 需 要 注意 的 是 ， 用 
来 与 这 七 个 集合 关联 的 只 有 两 个 集合 类 型 。 这 是 因为 单个 的 集合 只 存储 两 个 数据 类 型 ，VARCHAR2 和 DATE。 在 运行 时 ， 此 示例 将 产生 下 面 的 输出 : 


| 关口 


19 records were added to МҮ ZIPCODE table 


接 下 来 ， 考 虑 另 一 个 FORALL 语 句 和 BULK COLLECT 子 句 与 DELETE 语 名 一 起 使 用 的 示例 。 在 这 个 示例 中 ，MY_ZIPCODFE 表 中 的 记录 被 删除 了 几 个 邮 
政 编码 ， 并 且 把 已 删除 的 邮政 编码 和 对 应 的 城市 名 称 分 别人 存储 在 zip_tab 和 city tab 集合 


示例 ch18 10a.sq| 


DECLARE 


-- 声明 集合 类 型 
TYPE string type IS TABLE OF VARCHAR2 (100); 


-- 声明 要 被 FORALL 语句 和 BULK COLLECT 子 句 使 用 的 集合 变量 

Zip codes string_type := string type ('06401', '06455', '06483', '06520', '06605'); 
zip tab string_type; 

city tab string type; 


v_rows INTEGER := 0; 


BEGIN 
-- 从 MY ZIPCODE 表 中 删除 一 些 记录 
FORALL i in zip_codes.FIRST..zip codes .LAST 
DELETE FROM my zipcode 
WHERE zip = zip_codes (i) 
RETURNING zip, city 
BULK COLLECT INTO zip tab, city tab; 
COMMIT; 


DBMS ООТРОТ.РОТ LINE ('The following records were deleted from МҮ ZIPCODE table:'); 
FOR 1 іп жїр tab.FIRST..zıp tab. LAST 
LOOP 
DBMS OUTPUT .PUT LINE ('Zip code '||zip tab(i)||', city '||city tab(i)); 
END LOOP; 
END; 


在 此 脚本 中 ，FORALL 语 句 针对 存储 在 zip_codes 集 合 中 的 邮政 编码 值 给 定 列表 运行 DELETE 语 句 。 另 外 ，DELETE 语 句 包含 了 RETURNING 子 句 和 
BULK COLLECT 子 句 ， 这 反 过 来 将 邮政 编码 和 城市 名 称 分 别 仓储 在 zip_ tab 和 city tab 集合 中 。 最 后 ， 用 数字 FOR 循环 来 显示 仓储 在 zip_ tab 和 city tab% 
合 中 的 数据 ， 如 脚本 的 下 列 输出 所 示 : 

The following records were deleted from MY ZIPCODE table: 
Zip code 06401, city Ansonia 

Zip code 06455, city Middlefield 

Zip code 06483, city Oxford 


Zip code 06520, city New Haven 
Zip code 06605, city Bridgeport 


18.3 30093: 在 SQL 语 句 中 绑 定 集合 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 使 用 EXECUTE IMMEDIATE ё) 9 36 2, 
- 使 用 DPEN-FOR、FETCH 和 CLOSE 语句 时 绑 定 集合 。 


如 前 所 述 ， 在 Oracle 12c 中 已 经 添加 了 采用 动态 SQL 时 绑 定 集合 数据 类 型 的 功能 。 回 顾 一 下 ， 第 17 章 研究 了 动态 SQL， 我 们 学 会 了 如 何 使 用 
EXECUTE IMMEDIATE 语 句 和 OPEN-FOR、FETCH 和 CLOSE 语句 。 


184 КЕ 


在 本 章 ， 我 们 学 会 了 如 何 使 用 称 为 批量 SQL 的 功能 来 优化 PL/SQL 人 代码 。 从 根本 上 讲 ， 我 们 学 习 了 如 何 批 处 理 SQL 语 句 及 其 结果 ， 以 便 尽量 减少 与 
PL/SQL 程 序 和 SQL 引擎 之 间 的 上 下 文 切 换 次 数 相 关联 的 性 能 开销 。 上 有 具体 来 说 ， 我 们 了 解 了 FORALL 语 句 和 BULK COLLECT 子 句 。 此 外 ， 我 们 还 了 解 到 从 
Oracle 12c 开 始 ， 可 以 在 动态 SQL 中 使 用 批量 SQL 和 集合 数据 类 型 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


程 


ЕП 


281928 


在 本 章 ， 你 将 学 习 如 下 内 容 : 

- 创建 过 程 

. 传递 过 程 的 IN 和 OUT 参 数 

到 目前 为 止 ， 我 们 编写 的 所 有 PL/SQL 都 是 作为 脚本 运行 的 ， 并 在 运行 时 由 数据 库 服 务 器 编译 的 匿名 块 。 现 在 ， 你 将 开始 使 用 模块 化 的 代码 。 模 块 化 
的 代码 是 一 种 从 不 同 的 部 分 (模块 ) 建立 程序 的 方法 ， 每 个 模块 都 执行 面向 程序 的 最 终 目标 的 特定 功能 或 任务 。 一 旦 模块 化 代码 被 仓储 在 数据 库 服务 器 
上 ,， 它 就 成 为 一 个 可 提供 给 其 他 程序 单元 重复 执行 的 数据 库 对 象 或 子 程序 。 为 了 把 代码 保生 到 数据 库 中 ， 需 要 将 源 代码 发 送 到 服务 器 ， 以 便 它 可 以 被 编 


译 成 p 代 码 并 存储 在 数据 库 中 。 这 个 过 程 将 在 以 下 三 章 研 究 。 本 章 非 常 简短 : 简要 介绍 了 存储 过 程 。 第 20 章 涵盖 了 存储 阔 数 的 基础 知识 ， 而 第 21 章 是 非常 
长 的 一 章 ， 它 将 所 有 的 材料 结合 到 一 起 来 研究 包 。 


在 本 章 的 第 一 个 实验 中 ， 你 将 了 解 更 多 关于 存储 代码 的 内 容 并 了 解 如 何 编写 一 类 被 称 为 过 程 的 存储 代码 。 在 第 二 个 实验 中 ， 你 将 了 解 参 数 传 入 和 传 
出 过 程 。 在 研究 存储 过 程 的 细节 之 前 ,我 们 先 介绍 模块 化 代码 的 好 处 。 


19.1 模块 化 代码 的 好 处 


PL/SQL 模 块 是 任何 完整 的 逻辑 工作 单元 。 共 有 五 种 类 型 的 PL/SQL 模 块 : @ 用 文本 脚本 运行 的 匿名 块 (到 现在 为 止 已 使 用 的 类 型 ) ; 01012; OR 
数 ; @ 包 ; @ 触 上 友 器 。 使 用 模块 化 的 代码 有 两 大 好 处 : @ 它 是 可 重用 的 ，@ 它 更 易于 管理 。 


可 以 用 SQL*Plus 创 建 一 个 过 程 或 用 众多 工具 之 一 来 创建 和 调试 存储 的 PLUSQL 代 码 。 如 果 使 用 SQL*Plus， 那 么 需要 在 文本 编辑 器 中 编写 代码 ， 然 后 


在 SQL*Plus 提 示 符 下 运行 它 。 


19.2 实验 1: 创建 过 程 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
实践 创建 过 程 的 语法 。 
. 查询 数据 字典 获取 过 程 的 信息 。 


过 程 是 执行 一 个 或 多 个 操作 的 模块 ， 它 并 不 需要 返回 任何 值 。 用 于 创建 过 程 的 语法 如 下 : 


CREATE OR REPLACE PROCEDURE 过 程 名 
[ (参数 [， 参 数 ，http://www.hzcourse.com/resource/readBook?path=/openresources/teach ebook/uncompressed/15603/0EBPS/Text/...])] 


[本 地 声明 ] 
BEGIN 

可 执行 语句 
[EXCEPTION 

异常 处 理 程序 ] 
END [过 程 名 ]; 


AS 


一 个 过 程 可 以 有 0 到 多 个 参数 (这 个 主题 在 19.3 节 中 研究 ) 。 每 个 过 程 都 有 两 部 分 : @ 标 头 部 分 ， 附 带 在 AS (或 有 时 是 1S 一 一 它们 是 可 互 换 的 ) 关键 
字 之 前 ， 并 包含 该 过 程 的 名 称 和 参数 列表 ; @ 过 程 体 ， 这 是 在 As (15) 关键 字 后 的 全 部 内 容 。REPLACE 这 个 词 是 可 选 的 。 当 程序 的 标 头 不 包含 此 关键 字 


时 ， 为 了 更 改过 程 的 代码 ， 你 必须 首先 删除 此 过 程 ， 然 后 重新 创建 它 。 因 为 改变 程序 的 代码 是 非常 常见 的 操作 ， 尤 其 是 当 它 正在 开 帮 中 的 时 候 ， 所 以 强 
烈 建 议 你 使 用 OR REPLACE 选 项 。 


193 30292: 传 馆 的 过 程 参数 IN 和 OUT 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


- 在 过 程 中 使 用 IN 和 OUT 参 数 。 


在 过 程 中 使 用 IN 和 和 OUT 参数 


参数 是 从 调用 环境 向 服务 器 传递 值 的 手段 ， 反 之 亦 然 。 这 些 值 通过 过 程 的 执行 被 处 理 或 者 返回 。 共 有 三 种 参数 模式 : IN、OUT 和 IN OUT, 
TA 


模式 指定 了 传递 的 参数 是 用 于 读 取 的 ， 还 是 作为 输出 的 接收 器 使 用 的 。 图 19-2 显 示 了 在 过 程 标 头 的 参数 和 过 程 执行 时 的 参数 之 间 的 关系 。 


ХУРЕД: 


PROCEDURE FIND МАМЕ (ID IN NUMBER, МАМЕ OUT УАКСНАК2) 


ЛУР: 


EXECUTE FIND МАМЕ (127, МАМЕ) 


919-2 ”将 一 个 过 程 调 用 与 过 程 标 头 匹配 


形式 参数 是 在 由 括号 括 起 来 ， 作 为 一 个 模块 标 头 的 一 部 分 的 指定 的 名 称 。 实 际 参数 是 调用 此 模块 时 ， 在 作为 参数 列表 的 括号 中 指定 的 值 表达 式 。 形 
陈 参数 和 相关 的 实际 参数 必须 是 相同 或 兼容 的 数据 类 型 。 表 19-1 介 绍 了 三 种 类 型 的 参数 。 


表 19-1 三 种 参数 


模式 用 途 
把 一 个 值 传 人 程序 ; 
ER FHR, RER: | 

IN А |": 
在 程序 中 不 能 被 更 改 ; аа 
默认 模式 
把 一 个 值 从 程序 传 回 ; 
不 能 赋予 默认 值 ; | 

= 必须 是 变量 ; а 
只 有 程序 成 功 才 被 赋予 一 个 值 

IN OUT 同时 是 传人 和 传 回 的 值 必须 是 变量 


3. 随 着 参数 值 一 起 传递 约束 (数据 类 型 ) 


形式 参数 不 需要 对 数据 类 型 进行 限制 。 例 如 ， 你 可 以 在 形式 参数 列表 中 只 对 参数 名 称 友 出 VARCHAR2， 而 不 是 指定 约束 ， 如 VARCHAR2 (60) 。 约 
束 在 执行 调用 时 随 着 值 一 起 传递 。 


4. 匹 配 实际 参数 和 形式 参数 


有 两 种 方法 可 以 用 来 匹配 实际 参数 和 形式 参数 : 位 置 表示 法 和 命名 表示 法 。 位 置 表示 法 是 简单 地 通过 位 置 关联 ， 也 融 是 说 ， 在 执行 程序 时 所 使 用 的 
参数 顺序 与 程序 标 头 中 的 顺序 正好 匹配 。 命 名 表示 法 是 用 符号 = > 明确 进行 天 联 。 它 的 语法 如 下 : 


形式 参数 名 => 实际 参数 值 


在 命名 表示 法 中 ， 上 顺序 并 不 重要 。 但 是 ， 如 果 将 两 种 表示 法 混用 ， 你 应 该 将 位 置 表示 法 列 在 命名 表示 法 前 面 。 


如 果 调 用 程序 时 不 包括 在 参数 列表 中 的 值 ， 默 认 值 就 会 被 使 用 。 请 注意 ， 使 用 哪 一 种 风格 是 没有 区 别 的 ， 它 们 都 以 类 似 的 方式 工作 。 


示例 ch19 2.sql 


CREATE OR REPLACE PROCEDURE find sname 
(i student id IN NUMBER, 
o first пате OUT VARCHAR2, 
o last name OUT VARCHAR2 
) 
AS 
BEGIN 
SELECT first name, last name 
INTO o first name, o last пате 
FROM student 


WHERE student_id = i_student_id; 
EXCEPTION 
WHEN OTHERS 
THEN 


DBMS _ OUTPUT .PUT LINE('Error in finding student іа: 
'||i student id); 
END find sname; 


这 个 过 程 通 过 一 个 名 为 i1_ student id 的 参数 接受 一 个 student id。 它 传 出 参数 o_first_ name 和 o_last_ name。 此 过 程 是 一 个 简单 的 SELECT 语 句 ， 它 在 


STUDENT 表 中 的 student id 与 过 程 中 存在 的 唯一 |N 参 数 i_student id 的 值 相 匹 配 时 ， 检 索 first_name 和 last_ name。 要 调用 此 程序 ， 必 须 为 参数 
i_student id 传 入 一 个 值 。 


示例 ch19 3.sql 


DECLARE 


Vv_local first пате student .first name®%TYPE; 


Vv_local last пате student.last пате%ТҮРЕ; 
BEGIN 


find sname 


(145, у Local first пате, у local last пате) ; 
DBMS OUTPUT.PUT LINE 


('Student 145 is: '||v local first пате | | 
' || local last пате||'.' 
); 
END; 


当 调 用 过 程 find_sname 时 ， 应 当 为 | student id 传 入 一 个 有 效 student_id。 如 果 它 不 是 一 个 有 效 student_id， 就 将 引发 一 个 异常 。 调 用 过 程 时 还 必 


须 列 出 两 个 变量 。v local first name 和 v_local last_name 这 两 个 变量 用 于 保存 传 出 的 参数 值 。 执 行 此 过 程 后 ， 这 些 局 部 变量 将 具有 值 ， 然 后 可 以 用 
DBMS OUTPUT.PUT LINE 语 句 显示 它们 。 


19.4 忆 结 


在 本 草 ， 我 们 学 习 了 如 何 创建 过 程 。 首 先 ， 你 看 到 了 如 何 创建 一 个 没有 参数 的 基本 过 程 。 然 后 ， 在 19.3 节 ， 你 看 到 了 如 何 把 参数 添加 a 到 过 程 来 缩小 
此 过 程 中 发 生 的 事务 处 理 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 
的 理解 程度 。 
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在 本 章 ， 你 将 学 习 如 下 内 容 : 
‚ 创建 函数 

- 在 SQL 语句 中 使 用 函数 

- 在 SQL 中 优化 函数 执行 


存储 在 数据 库 中 的 遂 数 很 像 过 程 ， 因 为 它 也 是 一 个 可 以 使 用 参数 和 被 调用 的 命名 PL/SQL 块 。 然 而 ， 逊 数 在 创建 方式 以 及 使 用 方式 上 与 过 程 有 两 个 关 
键 区 别 。 在 这 简短 的 一 章 ， 你 将 学 习 如 何 创 建 、 使 用 和 删除 函数 的 基础 知识 。 在 第 21 章 ， 你 将 学 习 当 把 函数 放置 到 包 中 时 ， 如 何 扩展 它们 。 


20.1 实验 1: Бр 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
_ 创建 存储 函数 。 
` 使 用 函数 。 


沙 数 是 与 过 程 非常 相似 的 另 一 种 类 型 的 存储 代码 。 两 者 之 间 的 最 大 区 别 是 ， 一 个 消 数 是 返回 单个 值 的 PL/SQL 块 。 遂 数 可 以 接受 一 个 、 多 个 参数 或 零 
个 参数 ， 但 在 其 执行 部 分 必须 有 return 子 句 。 返 回 值 的 数据 类 型 必须 在 立 数 的 标 头 中 声明 。 沙 数 的 运行 方式 与 过 程 不 同 ， 它 不 是 一 个 独立 的 可 执行 文 
件 ， 也 束 是 说 ， 消 数 必须 始终 在 某 些 上 下 文 下 使 用 。 你 可 以 把 它 看 作 等 同 于 一 个 语句 片段 。 消 数 产 生 的 输出 需要 被 赋予 一 个 变量 ,或 者 它 可 以 在 SELECT 
语句 中 使 用 。 
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20.2 ”实验 2: 在 SQL 语句 中 使 用 站 数 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 在 SQL 语 名 中 调用 函数 。 


` 编写 复杂 的 函数 。 


20.3 30093: 在 SQL 中 优化 函数 执行 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 使 用 WITH 子 多 定义 函数 。 


- 使 用 UDF 编 译 指示 创建 函数 。 


在 Oracle 12.1 中 ， 引 入 了 一 些 人 允许 对 在 SQL 语句 中 使 用 的 函数 进行 优化 的 新 功能 。 特 别 是 ， 函 数 定 义 可 以 与 SELECT 操作 发 生 在 同一 个 语句 中 。 


20.4 545 


EAE, RIAI ГИЈА, REZA TAMESIDE Била, MAA T РИНКИ ВА ИЕЅОГН АЧИТ: 使 用 
WITH 函数 和 使 用 JUDF 编 译 指示 语法 。 
顺便 说 说 

配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


在 本 章 ， 你 将 学 习 如 下 内 容 : 


PRE 
` 包 的 实例 化 和 初始 化 
* SERIALLY_REUSABLE 包 


包 是 在 一 个 包 名 下 的 组 合 在 一 起 的 PLUSQL 对 象 的 集合 。 包 可 以 包括 过 程 、 阔 数 、 游 标 、 声 明 、 类 型 和 变量 。 把 对 象 收集 在 一 个 包 中 有 许多 好 处 。 在 
本 章 ， 你 将 学 习 如 下 内 容 : 这 些 好 处 ， 以 及 如 何 利用 它们 。 


21.1 实验 1: 创建 包 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 创建 包 规 范 。 
` 创建 包 体 。 
` 调用 已 存储 的 包 。 
` 创建 私有 对 象 。 


使 用 包 作 为 押 绑 你 的 函数 和 过 程 的 一 种 方法 有 许多 好 处 ， 第 一 个 好 处 是 ， 精 心 设计 的 包 是 对 象 ， 如 函数 、 过 程 、 全 局 变量 和 游标 的 一 个 逻辑 分 组 。 
在 第 一 次 调用 包 时 ， 它 所 有 的 代码 (解析 树 和 伪 代 码 [p 代 码 ]) 都 被 加 载 到 内 存 (Oracle 服 务 器 的 共享 全 局 区 [SGA]) 。 这 意味 着 ， 包 的 第 一 次 调用 代价 
是 非常 昂贵 的 ( 它 涉及 在 服务 器 上 的 大 量 处 理 ) ， 但 所 有 的 后 续 调 用 都 将 具有 改善 的 性 能 。 出 于 这 个 原因 ， 包 通 音 用 于 重复 调用 过 程 和 逆 数 的 应 用 程 
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序 。 


尽管 PHSQL 不 是 一 站 “真正 的 ”面向 对 象 的 编程 语言 ， 但 包 让 你 能 够 使 用 一 些 面 向 对 象 编 程 所 涉及 的 概念 。 使 用 PLUSQL 包 ， 你 可 以 汇集 阔 数 和 过 
程 ， 并 为 它们 提供 一 个 环境 。 因 为 包 的 所 有 代码 都 被 加 载 到 内 存 中 ， 你 也 可 以 编写 自己 的 代码 ， 以 便 把 类 似 的 代码 以 允许 多 个 过 程 和 水 数 调用 它们 的 方 
式 放 入 包 中 。 如 果 计 算 逻 辑 相 当 密 集 ， 并 且 你 要 将 它 保持 在 一 个 地 方 ， 你 束 会 希望 这 样 做 。 


一 个 基本 的 货币 转换 的 示例 


如 果 你 把 同样 的 计算 写 在 多 个 地 方 ， 那 么 每 当 计 算 的 复杂 增加 时 ， 你 就 需要 做 大 量 的 维护 工作 。 例 如 ， 基 本 货币 转换 是 相当 简单 的 : 将 一 个 金额 乘 
以 汇率 。 实 际 上 ， 货 币 转换 会 变 得 更 加 复杂 。 在 欧盟 成 立 后 ， 当 一 个 国家 采用 欧元 作为 本 国货 币 时 ,个 别 国家 的 货币 就 会 被 淘汰 。 欧 盟 随 后 通过 了 关于 
如 何 转换 这 些 “ 死 ”的 货币 的 复杂 政策 。 如 果 合 同 在 货币 可 用 时 签订 ,但 后 来 货币 被 淘汰 ， 那 么 这 种 考虑 是 重要 的 。 例 如 ， 如 果 你 有 一 个 用 德国 马克 签 
订 的 旧 合同 需要 转换 成 美元 ， 就 会 经 历 这 个 过 程 。 合 同 金 额 首 先 将 基于 通行 汇率 从 德国 马克 转换 为 欧元 。 然 后 ， 它 将 根据 标准 的 含 入 机 制 ， 从 德国 马克 
舍 入 到 欧元 ， 然 后 它 将 按照 现行 汇率 从 欧元 转换 为 美元 。 如 果 你 的 程序 中 有 许多 地 方 都 包含 货币 换算 ， 那 么 把 转换 过 程 封 装 成 一 个 涵盖 这 种 欧元 场景 的 
函数 就 会 更 有 意义 。 此 函数 可 以 是 公共 或 私有 的 《这 些 概 念 在 本 章 的 后 面 解 释 ) 函数 ， 它 被 在 同一 个 包 中 的 所 有 其 他 过 程 调 用 。 


21.2 ”实验 2: 游标 变量 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 游标 变量 。 


到 目前 为 止 ， 你 已 经 从 本 书 看 到 了 用 来 从 单个 SELECT 语句 中 收集 特定 数据 的 游标 。 人 在 本 章 的 开始 部 分 ， 你 学 会 了 如 何 把 一 些 过 程 一 起 放 到 称 为 包 的 
大 程序 中 。 一 个 包 可 以 具有 被 几 个 过 程 所 使 用 的 一 个 游标 。 在 这 种 情况 下 ， 每 一 个 使 用 相同 游标 的 过 程 都 将 必须 声明 、 打 开 、 获 取 并 关闭 游标 。 在 
PL/SQL 的 当前 版 本 中 ， 游 标 可 以 像 任 何其 他 PL/SQL 变 量 那 样 声明 和 操作 。 这 种 类 型 的 变量 称 为 游标 变量 或 REF CURSOR, 游标 变量 只 是 静态 游标 的 一 
个 引用 或 句柄 。 它 允许 程序 员 对 需要 访问 此 游标 的 所 有 程序 单元 传递 这 个 对 同一 游标 的 引用 。 游 标 变量 在 运行 时 动态 绑 定 游标 的 SELECT 语句 。 


显 式 游标 用 来 命名 保存 多 行 查询 信息 的 工作 区 。 游 标 变量 可 以 用 来 指向 存储 多 行 查 询 结果 的 内 存 区 域 。 游 标 忌 是 指向 工作 区 中 相同 的 信息 ， 而 游标 
变量 可 以 指向 不 同 的 工作 区 。 游 标 是 静态 的 ， 但 游标 变量 可 以 被 看 作 是 动态 的 ， 因 为 它们 不 依赖 于 任何 一 个 特定 的 查询 。 游 标 变量 让 你 能 够 轻松 访问 集 
中 的 数据 检索 。 


你 可 以 在 存储 过 程 和 各 种 客 尸 端 之 间 使 用 游标 变量 传递 查询 结果 集 。 只 要 游标 变量 指向 某 个 查询 工作 区 ， 它 就 仍然 可 以 访问 。 因 此 ， 你 可 以 自由 地 
把 游标 变量 从 一 个 作用 域 传递 到 另 一 个 作用 域 。 游 标 变量 具有 两 种 类 型 : 强 与 弱 。 


为 了 执行 多 行 查询 ，Oracle 服 务 器 打开 一 个 叫做 游标 的 工作 区 来 存储 处 理 信息 。 要 访问 这 些 信息 ， 你 要 么 命名 此 工作 区 ， 要 人 么 使 用 指向 此 工作 区 的 
游标 变量 。 游 标 总 是 指向 相同 的 工作 区 ， 而 游标 变量 可 以 引用 不 同 的 工作 区 。 因 此 ， 游 标 和 游标 变量 不 能 互 操作 。 显 式 游标 是 静态 的 ， 并 与 一 个 SQL 语 句 
相关 联 。 相 反 ， 游 标 变量 可 以 在 运行 时 与 不 同 的 语句 相关 联 。 主 要 使 用 游标 变量 在 PL/SQL 存 储 子 程序 和 各 种 客户 端 ， 如 客户 端 Oracle Developer Forms 
应 用 程序 之 间 传 递 一 个 指向 查询 结果 集 的 指针 。 它 们 都 不 拥有 结果 集 ， 它 们 只 是 共享 一 个 指向 存储 结果 集 的 查询 工作 区 的 指针 。 你 可 以 在 客户 端 声明 游 
标 变 量 ， 在 服务 器 端 打 开 它 并 从 中 获取 数据 ， 然 后 继续 在 客户 端 从 中 获取 数据 。 


游标 变量 与 游标 的 区 别 和 常量 与 变量 的 区 别 几 乎 相同 。 游 标 是 静态 的 ， 而 游标 变量 是 动态 的 。 在 PL/SQL 中 ， 游 标 变 量 有 一 个 REF CURSOR 数 据 类 
型 ， 其 中 REF 代 表 引 用 ， 而 CURSOR 代 表 对 象 的 类 。 现 在 ， 你 将 学 习 声 明和 使 用 游标 变量 的 语法 。 


要 创建 一 个 游标 变量 ， 你 首先 需要 定义 一 个 REF CURSOR 类 型 ， 然 后 声明 此 类 型 的 一 个 变量 。 在 声明 一 个 强 类 型 的 REF CURSOR 之 前 ， 你 必须 声明 
一 个 具有 你 打算 使 用 SELECT 语句 得 到 的 结果 集 数 据 类 型 的 记录 (注意 ， 对 于 弱 REF CURSOR， 这 一 步 是 没有 必要 的 ) 。 
ТҮРЕ inst city type IS RECORD 


(first name instructor.first паше%ТҮРЕ; 
last name instructor.last_name%TYPE; 


city zipcode .city%śTYPE; 
state zipcode .state%śTYPE) 


其 次 ， 你 必须 为 类 型 是 REF CURSOR 的 游标 变量 声明 一 个 复合 数据 类 型 。 语 法 如 下 : 


ТҮРЕ ref type пате is REF CURSOR [RETURN return typel]; 


ref_type_name 是 在 随后 的 声明 中 指定 的 类 型 。 返 回 类 型 代表 了 一 个 强 游标 的 一 个 记录 类 型 ， 弱 游标 不 具有 特定 的 返回 类 型 ， 而 能 够 处 理 SELECT 语 


句 的 数据 项 的 任意 组 合 。REF CURSOR 关 键 字 表明 ， 新 的 类 型 将 是 一 个 指向 已 定义 的 类 型 的 指针 。return_type 表 示 最 终 由 游标 变量 返回 的 SELECT 列 表 


的 种 类 。 返 回 类 型 必须 是 一 个 记录 类 型 。 
TYPE inst сісу сиг IS REF CURSOR RETURN inst city type; 
游标 变量 可 以 是 强 (限制 性 ) 或 弱 ( 非 限 制 性 ) 的 。 一 个 强 的 游标 变量 是 一 个 指定 了 return_type 的 REF CUR9OR 类 型 定义 ， 弱 游标 变量 的 定义 中 没 


有 指定 return_type。PLSQL 仅 允许 你 将 强 类 型 与 可 比 类 型 的 查询 相关 联 ， 而 弱 类 型 可 以 与 任何 查询 相关 联 。 这 使 得 一 个 强 的 游标 变量 更 不 容易 出 错 ， 但 
弱 REF CURSOR 类 型 会 更 加 灵活 。 


下 面 是 用 于 处 理 游 标 变量 的 关键 步骤 : 
1) 定义 并 声明 游标 变量 。 


打开 游标 变量 。 将 游标 变量 与 一 个 多 行 3SELECT 语 名 关联， 执行 查询 ， 并 确定 结果 集 。OPEN FOR 语句 可 以 为 不 同 的 查询 打开 同一 游标 变量 。 在 重新 
打开 某 个 游标 变量 之 前 ， 你 不 需要 关闭 它 。 请 记 住 ， 当 你 为 不 同 的 查询 重新 打开 游标 变量 时 ， 上 一 个 查询 会 去 失 。 在 程序 中 以 后 重新 打开 游标 变量 之 前 
关闭 它们 是 一 种 良好 的 编程 技术 。 


2) 从 结果 集 获取 行 。 

从 结果 集 逐 行 地 获取 行 。 请 注意 ， 游 标 变量 的 返回 类 型 必须 与 FETCH 语 句 的 INTO 子 句 中 命名 的 变量 兼容 。 

FETCH 语 句 从 结果 集 逐 行 地 获取 行 。PL/SQL 验 证 游标 变量 的 返回 类 型 与 FETCH 语 句 的 INTO 子 句 兼 容 。 对 于 返回 的 每 个 查询 列 的 值 ， 在 INTO 子 句 中 
都 必须 有 一 个 类 型 可 比 的 变量 。 此 外 ， 碍 询 的 列 数 必 须 等 于 变量 数 。 如 果 数 量 或 类 型 不 匹配 ， 那 么 强 类 型 游标 变量 会 在 编译 时 上 友 生 错误 ， 而 弱 类 型 游标 
变量 会 在 运行 时 上 友 生 错误 。 

3) 关闭 此 游标 变量 。 

下 面 的 示例 演示 如 何在 一 个 包 中 使 用 游标 变量 。 

示例 ch21 10.59 


CREATE OR REPLACE PACKAGE course pkg AS 
TYPE course гес Гур 15 RECORD 
(first name student.first Dame 和 TYPE， 


last_name student, last пате%ТҮрРЕ, 
course_no course .course_nobTYPE, 


description course.description%TYPE, 
section по section.section no%TYPE 
); 
ТҮРЕ course cur IS REF CURSOR RETURN course rec typ; 
PROCEDURE get course _ list 
(p_student_id NUMBER , 
р instructor іа NUMBER 5 
course list_cv IN OUT course cur); 
END course pkg; 
/ 


CREATE OR REPLACE PACKAGE BODY course pkg AS 
PROCEDURE get _ course list 
(p_student_id NUMBER , 
p_instructor іа NUMBER , 
course list cv IN OUT course cur) 
IS 
BEGIN 


ТЕ р student_id IS NULL AND р _ instructor іа 
IS NULL THEN 
OPEN course list cv FOR 
SELECT 'Please choose a student-' First_name, 
'instructor combination' Last пате, 


NULL course_no, 
NULL description, 
NULL section no 
FROM dual; 


ELSIF p student id IS NULL THEN 
OPEN course list cv FOR 
SELECT s.first_name first_name, 

s.last_name last_name, 
C.course по сочгве по, 
с.аеѕсгіріёіоп description; 
se.section по section по 

FROM instructor і, student s, 
section se, course c, enrollment e 

WHERE 1.instructor іа = р instructor іа 
AND і.іпѕігосіог іа = se.instructor іа 


AND se.course по = C.CourSe по 
AND e.student id = S.Student іа 
AND e.section id = Se.section іа 


ORDER BY с.соцкве по, se.section по; 
ELSIF р instructor іа IS NULL THEN 


OPEN course list cv FOR 

SELECT 1.first пате first_name, 
i.last_name last_name, 
c.course no course по, 
c.description description, 
se.section no section по 

FROM instructor i, student s, 
section se, course c, enrollment e 

WHERE s.student_id = р student_id 

AND 1.instructor id = se.instructor id 


AND Seée.course по = C.course_no 
AND e.student іа = 8.student id 
AND e.section id = Se.Sectlon id 


ORDER BY с.соцгве по, se.section по; 
END IF; 
END get course list; 
END course pkg; 


你 可 以 在 PL/SQL 和 存储 子 程序 和 各 种 客户 端 之 间 传 递 查 询 结果 集 。 这 种 方法 之 所 以 有 效 ， 是 因为 PL/SQL 和 它 的 客户 端 共享 一 个 指向 确定 结果 集 的 查询 
工作 区 的 指针 。 在 类 似 SQL*Plus 的 客 尸 端 程序 中 ， 这 可 以 通过 定义 一 个 具有 REF CURSOR 数 据 类 型 的 宿主 变量 来 保存 存储 程序 中 的 一 个 REF CURSORE 
成 的 查询 结果 来 完成 。 要 看 到 存储 在 SQL*Plus 变 量 中 的 内 容 是 什么 ， 可 使 用 SQL*Plus 的 PRINT 命 令 。 或 者 ， 你 也 可 以 使 用 SQL*Plus 命 令 SET 
AUTOPRINT ON 自动 显示 查询 结果 。 


在 脚本 ch21 10 中 ， 包 规范 包括 两 个 TYPE 声 明 。 第 一 个 是 用 于 记录 类 型 course rec type 的 。 声 明 此 记录 类 型 来 定义 将 用 于 游标 变量 的 SELECT 语句 
的 结果 集 。 当 一 个 记录 中 的 数据 项 不 与 单个 表 匹 配 时 ， 有 必要 建立 一 个 记录 类 型 。 第 二 个 TYPE 声 明 是 用 于 游标 变量 的 REF CURSOR。 此 变量 的 名 称 为 
course_cur， 并 被 声明 为 强 游标 ， 这 意味 着 它 只 能 用 于 单个 记录 类 型 。 记 录 类 型 是 course_rec type。course_pkg 中 的 get_course list 过 程 返 回 包含 三 个 
不 同 结果 集 的 游标 变量 。 每 个 结果 集 都 是 相同 的 记录 类 型 。 


. 第 一 种 类 型 用 于 两 个 IN 参数 ， 也 就 是 说 ， 学 生 ID 和 教师 ID 都 为 空 的 情况 。 这 将 产生 由 消息 “Please choose а student-instructor combination” (请 选择 


一 个 学 生 - 教 师 的 组 合 ) 组 成 的 结果 集 。 


. 运行 该 程序 的 第 二 种 方法 是 ， 如 果 instructof id 被 传 入 ,但 student id} =% (注意 IF 语句 p_student іа IS NUILL 的 第 二 个 子 多 表示 的 程序 逻辑 是 反 向 否 


定 ， 意 思 是 “ 当 instructor id 被 传 入 ”) 。 这 将 运行 一 个 SELECT 语句 来 填充 游标 变量 ， 它 保存 该 教师 教 的 所 有 课程 和 就 读 于 这 些 班级 的 学 生 的 列表 。 


. 运行 这 个 程序 的 第 三 种 方法 是 使 用 一 个 studeht_ id 而 不 使 用 instructoft_ id。 这 将 产生 一 个 包含 


该 学 生 参 加 的 所 有 课程 和 每 个 课 班 的 教师 的 结果 集 。 
请 记 住 ,一 旦 游标 变量 被 打开 ， 它 不 会 关闭 ， 直 到 你 明确 关闭 它 为 止 。 


下 面 的 SQL 语句 将 创建 一 个 游标 变量 类 型 的 变量 


VARIABLE course су REF CURSOR 


执行 此 过 程 有 三 种 方法 。 第 一 种 方式 是 传 入 一 个 学 生 ID， 而 不 传 入 一 个 教师 ID: 


exec course pkg.get course list(102, NULL, :course су); 


在 SQL*Plus 中 可 以 使 用 以 下 命令 显 


变量 Course cv 的 内 容 : 


SQL> print course cv 


FIRST_NAME LAST МАМЕ COURSE NO DESCRIPTION 


-— á- á- á- — á- — 2 — — - á- á- á- — 2 2 — — 


Charles 
Nina 


SECTION NO 


Lowry 
Schorin 


25 Intro to Programming 2 
25 Intro to Programming з 


接 下 来 的 方法 是 传 入 一 个 教师 ID， 而 不 传 入 一 个 学 生 ID : 


SQL> exec course pkg.get course list (NULL, 102, 
PL/SQL procedure successfully completed. 


: course су); 


SQL> print course су 


FIRST_NAME LAST NAME COURSE NO DESCRIPTION SECTION NO 
Jeff Runyan 10 Technology Concepts 2 
Dawn Dennis 25 Intro to Programming 4 
May Jodoin 25 Intro to Programming 4 
Jim Joas 25 Intro to Programing 4 
Arun Griffen 25 Intro to Programming 4 
Alfred Hutheesing 25 Intro to Programming 4 
Lula Oates 100 Hands-On Windows 1 
Regina Bose 100 Hands-On Windows 1 
Јеппу Goldsmith 100 Hands-On Windows 1 
Roger Snow 100 Hands-On Windows 1 
Romme1 Frost 100 Hands-On Windows 1 
Debra Boyce 100 Hands-On Windows 1 
Janet Jung 120 Intro to Java Programming = 
John Smith 124 Advanced Java Programming 1 
Сһаг1ев Саго 124 Advanced Java Programming 1 
Sharon Thompson 124 Advanced Java Programming 1 
Evan Fielding 124 Advanced Java Programming 1 
Ronald Tangaribuan 124 Advanced Java Programming 1 
N Kuehn 146 Java for C/C++ Programmers 2 
Derrick Baltazar 146 Java for C/C++ Programmers 2 
Angela Torres 240 Intro to the Basic Language 2 


最 后 一 种 方法 是 既 不 传 入 学 生 ID， 也 不 传 入 教师 ID: 


SQL> exec course pkg.get course list (NULL, NULL, :course су); 
PL/SQL procedure successfully completed. 


SQL> print course су 


FIRST NAME LAST NAME C DESCRIPTION S 


Please choose a student- instructor combination 


下 一 个 示例 创建 男 一 个 名 为 student info pkg 的 包 ， 它 具有 名 为 get student info 的 一 个 过 程 。get student info 包 将 有 三 个 参数 : student id, 
一 个 被 称 为 p_choice 的 数字 和 一 个 弱 游 标 变 量 。p_choice 参 数 表 示 有 关 学 生 的 哪些 信息 将 被 传递 。 如 果 它 是 1， 则 此 过 程 将 从 STUDENT 表 返回 关于 该 学 
生 的 信息 。 如 果 它 是 2， 则 此 过 程 将 列 出 所 有 该 学 生 就 读 的 课程 ， 以 及 与 传递 的 STUDENT _ID 的 学 生 就 读 于 同一 课 班 的 学 生 的 姓名 。 如 果 它 是 3， 则 此 过 
程 将 返回 该 学 生 的 教师 ， 以 及 该 学 生 就 读 的 课程 信息 。 


示例 ch21_11.sq| 


CREATE OR REPLACE PACKAGE student info pkg AS 
ТҮРЕ student details IS REF CURSOR; 
PROCEDURE get _ student info 

(р student іа NUMBER , 

p_choice NUMBER , 

details_cv IN OUT student_details); 
END student info pkg; 


/ 
CREATE OR REPLACE PACKAGE BODY student info pkg AS 
PROCEDURE дес student _ info 
(p student id NUMBER , 


p_choice NUMBER , 
details_cv IN OUT student details) 
LS 
BEGIN 


IF p choice = 1 THEN 
OPEN details_cv FOR 
SELECT s.first_name first пате, 


s.last пате last_name, 
s.street address address, 
Аан ва азбу; 
2.вісасе state, 
Ze zip 


FROM student s, zipcode z 
WHERE s.student id = p student id 
AND т.938 2 Втр: 
ELSIF р choice = 2 THEN 
ОРЕМ details_cv FOR 
SELECT c.course_no course no, 
c.degcription description, 
se.section_ по ѕесііоп по, 
s.first_name first_name, 
s.last name last пате 
FROM student s, section se, 
сочгѕе с, епго1ітепі е 


course с, enroliment е 
WHERE se.course по = C.course_no 
AND e.student_id = s.student_id 
AND e.section_id = se.section id 
AND se.section id in (SELECT e.section id 
FROM student s, 
enrollment e 
WHERE s.student id 
р student іа 
AND s.student іа 
e.student_id) 


ORDER BY Cc.course по; 
ELSIF p_choice = 3 THEN 
OPEN details су FOR 


SELECT i.first_name first_name, 
i.last_name last_name, 
C:course_ по course по, 


c.description description, 
ѕе.ѕвессіоп no section по 
FROM instructor 1, tudent а, 
section se, course c, enrollment e 
WHERE s.student id = p student id 


AND і.іпѕсгиссог іа = ѕе.іпѕігисіог іа 
AND se .course_ по = C.course_ по 
AND e.student id = S8.Student іа 
AND e.section_id = ве.весёіоп 1а 
ORDER BY Cc.course по, ве.весііоп по; 
END IF; 


END get student info; 


END student info pkg; 


要 执行 get_student info 过 程 ， 你 必须 首先 创建 一 个 会 话 变 量 : 


VARIABLE student cv REF CURSOR 


然后 用 适当 的 值 执行 此 过 程 : 


SQL> execute student info pkg.GET STUDENT _ INFO 
(102, 1, satudent: су) ; 


最 后 显示 结果 : 


PL/SQL procedure successfully completed. 


SQL> print student су 
FIRST LAST NAM ADDRESS GELS ST ZIP 


Fred Crocitto 101-09 120th St. Richmond Hill NY 11419 


SQL> execute student _ info pkg.GET STUDENT ІМЕО 
(202. 2; BEE су); 
PL/SQL procedure successfully completed. 


SQL> print student cv 
COURSE NO DESCRIPTION SECTION NO FIRST_NAME LAST МАМЕ 


э ЖЕН кин я 
25 ІпЁго 
ША, {кле 
25 LC 
29 ЕЕН 
a ІПЕТО 
ДР ТЕТО 
25 ІпЁго 
же ПЕСО 
ае ТКО 
дэ ЕТТ 
ЭЕ ДКО 
25 Intro 
йз  InCroO 
26: h n h ө o 
ше LCD 
2S TICIO 
a LCTO 


CO 
со 
БО 
со 
CO 
CO 
to 
DO 
со 
со 
to 
to 
to 
CO 
to 
to 
to 
е, 


Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 


Fred 
Judy 
Jenny 
Barbara 
Jeffrey 
George 
Fred 
Hazel 
James 
Regina 
Arlyne 
Thomas 
Sylvia 
M. 
Edgar 
Bessie 
Walter 
Lorrane 


(л (л (л (л (л (л (л (л (л (л їл (л Мм М МЮ Мм М М 


SQL> execute student info pkg.GET STUDENT INFO 


(214, 


3, 


CGrocittö 
Sethi 
Goldsmith 
Robichaud 
Сіёгоп 
Коска 
Crogitrtro 
Lasseter 
Miller 
Gates 
Sheppard 
Edwards 
Perrin 
Diokno 
Moffat 
Heedles 
Boremmann 
Velasco 


早期 版 本 的 Oracle 仅 提供 REF CURSOR 的 使 用 ， 其 中 首先 会 用 特定 的 记录 集 创建 REF CURSOR 类 型 ， 


:Student су); 
PL/SQL procedure successfully completed. 


SQL> print student cv 


FIRST МАМЕ LAST МАМЕ COURSE NO DESCRIPTION SECTION NO 
Marilyn Frantzen 120 Intro to Java Programming 1 
Fernand Hanks 122 Intermediate Java Programming 5 
Сагу Регіе2 t30 ТИГҮӨ Сог TIX 2 
Магі1уп Frantzen 145 Internet Protocols 1 


然后 必须 创建 此 类 型 的 另 一 个 变量 以 在 仔 储 过 


程 和 遂 数 中 利用 REF CURSOR, Oracle 的 后 续 版 本 把 行为 类 似 的 SYS_REFCURSOR (类 型 为 REF CURSOR) 作为 一 个 预定 义 的 类 型 推出 了 。 
SYS_REFCURSOR 是 弱 类 型 的 ， 这 意味 着 具有 不 同 FROM 或 WHERE 子 句 ， 以 及 不 同 数量 和 类 型 的 列 的 任何 SELECT 语 句 都 可 以 使 用 它 。 在 第 24 章 中 的 示 
例 涵 芋 了 DBMS_SQL 一 节 中 包括 一 个 使 用 SYS_REFCURSOR 而 不 是 REF CURSOR 的 语法 示例 。 


使 用 游标 变量 的 规则 


- 你 不 能 对 另 一 台 服 务 器 上 的 远程 子 程序 使 用 游标 变量 ， 因 此 你 就 不 能 把 游标 变量 传递 给 一 个 通过 数据 库 链接 调用 的 过 程 。 
- 在 处 理 一 个 游标 变量 时 不 要 将 FOR UPDATE 与 OPEN FOR 放 在 一 起 使 用 。 

- 不 能 使 用 比较 运算 符 来 测试 游标 变量 的 相等 、 不 相等 或 无 效 。 
- 不 能 为 游标 变量 分 配 null 值 。 

- 在 CREATE TABLE 或 VIEW 语 旬 中 不 能 使 用 REF CURSOR 类 型 ， 


因为 它 没有 相应 的 数据 库 列 数据 类 型 。 


` 使 用 游标 变量 的 存储 过 程 仅 可 以 作为 一 个 查询 块 的 数据 源 ， 它 不 能 被 用 于 一 个 DML 块 的 数据 源 。 使 用 REF CURSOR 非 常 适 合 那些 只 依赖 于 SQL 语 


多 的 变化 ， 而 不 是 PL/SQL 语 名 的 变化 的 查询 。 


你 不 能 在 关联 数组 、 庶 套 表 或 变 长 数组 中 存储 游标 变量 。 


` 如 果 你 把 一 个 宿主 游标 变量 传递 给 PL/SQL， 那 么 你 不 能 在 服务 器 端 从 中 获取 ， 除 非 你 也 在 同一 服务 器 调用 中 打开 它 。 


21.3 30293: 扩展 包 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 用 其 他 程序 扩展 包 。 


在 这 个 实验 中 ， 你 将 利用 此 前 介绍 的 概念 来 扩展 已 经 创建 的 包 和 创建 新 的 包 。 只 有 通过 大 量 的 练习 ， 你 才能 更 加 舒适 地 利用 PL/SQL 编 程 。 在 编写 
PL/SQL 人 代码 时 ,仔细 考 虑 业务 需求 的 所 有 方面 是 非常 重要 的 。 一 个 好 的 经 验 法 则 是 ， 超 前 思考 并 用 可 重用 组 件 来 编写 代码 ， 以 便 该 PL/SQL 代 码 能 够 很 容 
易 地 扩展 和 维护 。 


用 其 他 程序 扩展 包 


本 节 通 过 建立 一 个 复杂 的 市 有 各 种 复杂 函数 和 程序 的 包 ， 提 供 了 编写 包 的 更 多 示例 。 逐 步 地 建立 一 个 大 包 ， 并 测试 你 创建 的 每 个 部 分 ， 以 确保 其 工 
作 正 常 ， 并 且 不 包含 任何 语法 错误 ， 始 终 是 最 佳 的 做 法。 下 面 的 一 组 示例 告诉 你 如 何 逐 步 地 建立 一 个 包 。 


1. 创 建 Manage Grades 包 规范 


下 面 的 脚本 创建 一 个 名 为 manage_grades 的 新 包 规 范 。 该 包 将 执行 大 量 的 成 绩 计 算 ， 并 将 需要 两 个 包 游 标 。 第 一 步 是 建立 一 个 称 为 c_ grade_Type 的 
游标 ， 它 具有 一 个 IN 参数 课 班 ID， 并 为 一 个 给 定 的 课 班 提供 所 有 成 绩 类 型 的 清单 ， 这 一 信息 是 计算 此 课 班 学 生 的 成 绩 所 需要 的 。 此 游标 返回 的 项 目 将 
是 : @@ 成 绩 类 型 代码 ; @ 本 课 班 的 该 种 成 绩 类 型 的 数量 ; @@ 最 终 成 绩 的 百分比 ; @@ 是 否 去 抒 最 低 值 的 指示 符 (标记 ) 。 


建立 一 个 包 游 标 时 ， 你 始终 应 该 做 的 第 一 件 事 就 是 编写 SELECT 语 句 ， 并 在 一 个 已 知 的 结果 集 上 对 其 进行 测试 。 换 句 话说 ， 你 为 变量 硬 编码 一 个 值 ， 
例如 student_id 和 section_id， 然 后 用 相应 的 变量 代 蔡 硬 编码 值 。 你 可 以 这 种 方式 继续 逐步 地 构建 包 。 尝 试用 最 小 的 可 测试 代码 单元 来 建立 包 的 每 个 组 
件 。 一 旦 代码 单元 返回 正确 的 结果 ， 且 语法 没有 错误 ， 你 束 可 以 接着 建立 下 一 个 单元 。 


下 面 的 示例 中 只 包含 SQL SELECT 语句 。 你 也 应 当先 编写 SQL SELECT 语 句 ， 然 后 用 已 知 值 来 测试 已 。 在 这 个 示例 中 ，student id 是 145， 而 


section id 是 106。 
示例 ch21_12.sql 


SELECT GRADE ТҮРЕ CODE, 
NUMBER PER SECTION, 
PERCENT OF FINAL GRADE, 

DROP _ LOWEST 
FROM grade Type weight 
WHERE section іа = 106 
AND section id IN (SELECT section id 
FROM grade 
WHERE student id = 145) 


现在 把 这 个 SELECT 语句 放 入 包 中 : 


示例 ch21 13.59 


CREATE OR REPLACE PACKAGE MANAGE GRADES AS 
-- 对 于 一 个 给 定 课 班 ， 对 全 部 成 绩 类 型 遍历 循环 的 游标 
CURSOR с grade type 
(pc section іа section.section id%TYPE, 
PC student Ір student . Student id%TYPE) 
IS 
SELECT GRADE TYPE CODE, 
NUMBER PER SECTION, 
PERCENT_OF FINAL GRADE, 
DROP LOWEST 
FROM grade Type weight 
WHERE section id = рс section іа 
AND section_id IN (SELECT section id 
FROM grade 
WHERE student id = pc student id); 
END MANAGE GRADES; 


2. 创 建 c_grade 游 标 


下 面 的 示例 演示 了 通过 添加 名 为 c grades 的 课 班 游标 来 扩展 manage_grades 包 。 此 游标 将 接收 一 个 成 绩 类 型 代码 、 学 生 ID， 以 及 课 班 ID， 并 返回 此 
学 生 在 该 课 班 的 所 有 属于 该 成 绩 类 型 的 成 绩 。 例 如 ， 如 果 Alice 参 加 了 Java 导 论 课 班 ， 就 可 以 用 这 个 游标 来 收集 她 的 所 有 测验 成 绩 。 


示例 ch21 14.59 


CREATE ОК REPLACE PACKAGE MANAGE GRADES AS 
-- 遍历 一 个 给 定 课 班 的 全 部 成 绩 类 型 的 游标 
CURSOR с grade type 
(рс ѕесііоп id section.section 14%ТҮРЕ, 
РС student Ір student . Student 14%ТҮРЕ) 


IS 
SELECT GRADE TYPE CODE, 

NUMBER PER SECTION, 

PERCENT OF FINAL GRADE, 

DROP LOWEST 
FROM grade Type weight 
WHERE section іа = рс section іа 

AND section_id IN (SELECT section_id 
FROM grade 
WHERE student іа = рс student іа); 
-- ж МЕ ЖЕР АДЕ З E AE Ж ЭД Їй ЖЭ NEAT 
CURSOR с grades 
(p_grade type code 
grade Туре weight .grade type соае%тТҮрРЕ, 
рс student id Stuaent .student id%TYPE, 
pc section id section.section id%TYPE) IS 
SELECT građe type соде,гайе code оссиггепсе, 
numeric grade 
FROM grade 
WHERE student іа = рс student іа 
AND section 1а = рс _ section id 
AND grade суре code = р grade type code; 
END MANAGE GRADES; 


3. 创 建国 数 final grade 


下 一 步骤 是 将 一 个 称 为 final_grade 的 函数 添加 到 此 包 规 范 中 。 这 个 函数 有 两 个 IN 参数 : 学 生 ID 和 课 班 ID。 它 将 返回 一 个 数字 一 一 该 学 生 在 这 个 课 班 
中 的 最 终 成 绩 ， 加 上 一 个 退出 代码 。 添 加 退出 代码 ， 而 不 是 引 友 异 弟 是 因为 这 种 方法 使 程序 更 加 灵活 ， 人 允许 调用 程序 根据 所 产生 的 特定 错误 代码 选择 如 


何 进 行 处 理 。 
示例 ch21 15.59 


CREATE ОК REPLACE PACKAGE MANAGE GRADES AS 
-- W — “Е ЖЭН 8р R Ж 0 Ву ЎР 
CURSOR с grade type 
(PC_Sect1lon іа section.section 14%ТҮРЕ, 
PC student Ір student .student id%TYPE) 


IS 
SELECT GRADE TYPE CODE, 
NUMBER PER SECTION, 
PERCENT ОЕ FINAL GRADE, 
DROP LOWEST 
FROM grade Type weight 
WHERE section іа = pc section іа 
AND section id IN (SELECT section id 
FROM grade 
WHERE student_id = рс student_id); 


-- 饥 历 一 个 给 定 课 班 中 一 个 给 定 学 生 的 全 部 成 绩 循环 的 游标 
CURSOR с grades 
(р grade type code 
grade Type weight.grade type code%TYPE, 
рс student іа student . Student id%TYPE, 
pc_section id section.section 14%ТҮРЕ) IS 
SELECT grade type code,grade code occurrence, 
numeric grade 
FROM grade 
WHERE student id = pc student id 
AND section іа = рс section іа 
AND grade type code = p grade type содае; 


-- 计算 学 生 在 一 个 课 班 的 最 终 成 绩 的 函数 
procedure final grade 
(P student іа ІМ student.student id%type, 
P section іа ІМ section.section id%TYPE, 
P Final grade OUT enrollment.final grade%TYPE, 
P Exit Code OUT CHAR) ; 
END MANAGE GRADES; 


下 一 步骤 是 将 此 函数 添加 到 包 体 。 为 了 执行 这 个 计算 ， 则 需要 多 个 变量 在 计算 的 执行 过 程 中 保存 值 。 


这 个 练习 也 是 学 生 表 之 间 数 据 关系 的 一 个 很 好 的 回顾 。 在 你 进入 下 一 步 阅 读 前 ， 请 先 阅读 附录 B， 其 中 有 STUDENT 模 式 的 实体 关系 图 (ERD) 和 表 
МАЈА, 


在 计算 最 终 成 绩 时 ， 你 必须 记 住 很 多 东西 ， 如 下 所 示 : 

` 每 个 学 生 都 报名 参加 了 一 个 课程 ， 而 这 个 信息 被 收集 在 入 学 表 中 。 

此 表 只 为 参加 一 个 课 班 的 每 个 学 生 保 存 最 终 成 绩 。 

. 每 个 课 班 都 有 自己 的 一 套 评 估 要 素来 计算 最 终 成 绩 。 

` 这 些 要 素 的 所 有 成 绩 〈 其 已 被 输入 ， 这 意味 着 在 数据 库 中 没有 NULL 值 ) 都 在 成 绩 表 中 。 

. 每 个 成 绩 都 有 一 个 成 绩 类 型 代码 。 这 些 代 码 代 表 成 绩 类 型 。 例 如 ， 成 绩 类 型 QZ 代表 测验 。 每 个 GRADE_TYPE 的 描述 都 来 自 GRADE_TYPE 表 。 


· GRADE_TYPE_WEIGHT 表 保存 该 计 草 的 关键 信息 。 一 个 给 定 课 班 中 利用 到 的 每 个 成 绩 类 型 在 此 表 中 都 有 一 个 条 目 〈 对 于 每 个 课 班 ， 并 不 是 所 有 
成 绩 类 型 都 存在 ) 。 


- 在 GRADE_TYPE_ WEIGHT 表 中 ，NUMBER_PER_SECTION 列 列 出 了 为 计算 一 个 特定 学 生 在 一 个 特定 课程 的 特定 课 班 的 最 终 成 绩 ， 某 一 成 绩 类 型 


应 被 输入 多 少 次 。 这 可 以 帮助 你 确定 ， 对 于 一 个 给 定 成 绩 类 型 ， 是 否 所 有 的 成 绩 都 已 输入 ， 以 及 是 否 已 为 茶 一 成 绩 类 型 输入 了 过 多 的 成 绩 。 


‚ 你 必须 考虑 drop_lowest 标 志 。 该 drop_lowest 标 志 可 容纳 Y 或 N 的 值 。 如 果 去 挤 最 低 值 标志 是 Y[Y= 是 ，N= 否 ]， 则 计算 最 终 成 绩 时 必须 从 该 成 绩 类 型 


、 RRE 


中 去 掉 最 低 成 绩 。PERCENT_OF_FINAL_GRADE 列 引用 一 个 给 定 成 绩 类 型 的 所 有 成 绩 。 如 果 家 庭 作 业 要 素 占 最 终 成 绩 的 20%， 并 分 配 有 五 个 家 庭 作 业 和 


drop_lowest 标 志 ， 那 么 每 个 剩余 的 家 庭 作业 都 占 5%。 在 计算 最 终 成 绩 时 ， 需 要 将 PERCENT_OF_FINAI, GRADE 除 以 NUMBER_PER_SECTION (注意 ， 


如 果 drop_lowest=Y， 那 么 要 除 以 NUMBER_PER_SECTION-1 ) 。 


退出 代码 应 该 被 定义 为 以 下 五 个 值 中 的 一 个 : 

S= 成 功 (Success) ， 最 终 成 绩 已 经 计算 完成 。 如 果 成 绩 不 能 计算 ， 那 么 最 终 成 绩 将 是 NULL， 而 退出 代码 将 是 其 他 四 个 选项 之 一 。 
1= 不 完整 (Incomplete) ， 未 输入 这 名 学 生 在 本 课 班 所 有 必需 的 成 绩 。 

T= 对 于 这 个 学 生存 在 太 (Too) 多 的 成 绩 。 例 如 ， 应 该 有 只 有 四 个 家 庭 作 业 成 绩 ， 但 是 却 有 六 个 成 绩 。 

N= 这 个 学 生 在 本 课 班 没有 (No) 成 绩 输入 。 


E= 有 一 个 通用 计算 错误 (异常 When_others) 。 这 种 退出 代码 允许 程序 在 它 可 以 的 时 候 计算 最 终 成 绩 ， 如 果 它 们 中 的 一 些 莫名 其 妙 地 引 友 Oracle 错 
误 ， 调 用 程序 仍然 可 以 继续 使 用 已 计算 出 的 成 绩 。 


要 计算 最 终 成 绩 ， 你 将 需要 一 些 变量 在 计算 期 间 保 存 临 时 值 。 最 初 的 代码 将 为 程序 final_grade 创 建 所 有 变量 ,但 随后 就 只 在 主 块 保留 语句 NULL;， 
这 使 你 可 以 编写 程序 ， 并 逐步 地 检查 所 有 变量 声明 的 语法 。 


student_id、section_id 和 grade_type_code 值 将 从 程序 的 一 个 部 分 转移 到 另 一 部 分 ， 这 就 是 为 什么 你 要 对 它们 中 的 每 个 都 创建 变量 的 原因 。 成 绩 的 
每 个 实例 都 将 被 计算 ， 以 确定 它 所 表示 的 最 终 成 绩 的 比例 。 在 处 理 每 个 单独 的 成 绩 时 需要 一 个 计数 器 ， 以 确保 对 于 给 定 的 成 绩 有 足够 的 成 绩 数 量 。 最 低 
成 绩 的 变量 保存 在 此 期 间 的 每 个 考试 成 绩 ， 看 它 是 否 是 最 低 的 。 最 后 ， 一 旦 对 于 给 定 的 成 绩 类 型 ,最低 成 绩 是 已 知 的 ， 那 么 就 可 以 将 它 从 最 终 成 绩 中 移 
除 。 此 外 ， 还 有 两 个 变量 被 用 作 行 计数 器 来 确定 游标 是 否 被 打开 。 


下 面 的 示例 演示 了 存根 格式 的 包 体 ， 也 就 是 说 ， 本 示例 包括 了 所 有 必要 的 变量 ,但 没有 写 入 实际 的 处 理 代码 。 在 编写 包 体 时 使 用 此 步骤 开始 的 原因 
是 为 了 确保 所 有 的 语法 都 是 正确 的 。 一 旦 这 个 存根 的 编译 没有 错误 ， 你 束 可 以 编写 包 体 的 代码 的 其 余部 分 。 


示例 ch21_16.sql 


CREATE OR REPLACE PACKAGE BODY MANAGE GRADES AS 
Procedure final grade 
(Р Student іа ІМ student.student id%type, 
P section id ІМ section.section id%TYPE, 
P Final grade OUT enrollment .final grade%®%TYPE, 
P Exit Code OUT CHAR) 


IS 
у student іа student . StUQent іатТҮРЕ; 
у Section іа ѕесііоп.ѕессіоп 14%ТҮРЕ; 
v grade type code grade _ type welght .grade type сойе$ТҮРЕ; 
v grade percent NUMBER ; 
у final grade NUMBER ; 
у grade count NUMBER ; 
у lowest grade NUMBER ; 
v exit code СНАК (1) := 1841} 
У no rowsl СНАК (1) w= TN"; 
v_no rows2 CHAR(1} ;= 'N'; 
е по grade EXCEPTION; 
BEGIN 
NULL; 
END; 


END MANAGE GRADES; 


完整 的 包 体 在 下 一 个 示例 中 提供 。 我 们 已 在 里 面 放置 了 注释 来 解释 代码 在 每 个 步骤 中 做 了 什么 。 在 代码 中 包含 注释 是 一 个 好 主意 ， 以 便 帮助 以 后 需 
要 修改 此 包 的 人 。 


示例 ch21 17.59 


CREATE ОК REPLACE PACKAGE BODY MANAGE GRADES AS 
Procedure final grade 
(P student іа ІМ student .student 1dg$type， 
P section іа ІМ section.section 14%ТҮРЕ, 
P Final _ grade OUT enrollment .final дгайе%ТҮРЕ, 
P Exit _ Code OUT CHAR) 


IS 
v_student_id student .student id%TYPE; 
у section id section.section id%TYPE; 
у grade type code grade type weight .grade type соае%ТҮРЕ; 
у grade percent NUMBER; 
у final grade NUMBER ; 
v grade count NUMBER ; 
v_lowest_grade NUMBER; 
v_exit_code CHAR (1) := '5'; 
у no rowsl CHAR(1) := 'N'; 
у по rows2 CHAR (1) := '№!; 
е по grade ЕХСЕРТІОМ; 
ВЕСІМ 


у весііоп іа := р section іа; 
у student id := р student 14; 


- - 开始 本 课 班 的 成 绩 关 型 循环 
FOR р grade іп с grade уре (у ѕесііоп іа, у _ Student іа) 
LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; 改变 指示 符 
v_no_rows1 := 'Ү'; 
-- 要 保存 每 个 课 班 的 成 绩 数量 ， 在 详细 游标 循环 之 前 重 置 为 0 
v_grade_count := 0; 
у дгаде type code := г grade.GRADE ТҮРЕ CODE; 
-- 用 于 保存 最 低 成 绩 的 变量 


-- 500 不 会 是 最 低 成 绩 
v_lowest_grade := 500; 
-- 确定 十 什么 乘 以 一 个 成 绩 来 计算 最 终 成 绩 ， 必 须 考虑 去 掉 最 低 成 绩 的 指示 符 是 否 是 了 
SELECT (r grade.percent of Ғіпа1 grade / 
DECODE (r_grade.drop_lowest, 'Y', 
(r grade.number per section - 1), 
r grade.number per section 
x 10.02 
INTO Уу гае percent 
FROM dual; 
-- 为 此 课 班 中 的 一 个 学 生 的 详细 成 绩 打 开 游 标 
FOR e detai in с grades (у grade type code, 
у student іа, v section id) LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; ARATA 
у по rows2 := 'Ү'; 
у grade count := у grade count + 1; 
-- 处 理 对 于 此 课 班 的 一 个 给 定 的 成 绩 类 型 ， 条 目 数量 比 应 该 有 的 条 目 更 多 的 情况 
If v grade count > г grade.number рег section THEN 
у exit code := 'T'; 
raise е no grade; 
END ТЕ; 
如 果 去 掉 最 低 成 绩 标记 为 Y， 确 定 要 去 掉 的 最 低 成 绩 
IF к дгаде.ӣгор lowest = 'Ү' THEN 
IF nvl(v_lowest_grade, 0) >= 
г detail.numeric grade 


ТНЕМ 
v_lowest_grade := к detail.numeric grade; 
END ТЕ; 
END ТЕ; 
-- 在 详细 循环 中 用 当前 成 绩 的 百分比 来 增加 最 终 成 绩 
у flnal grade := nvl(v_final_grade, 0) + 
(r detail.numeric_grade * у grade Percent 1) ; 
END LOOP; 
-- 一 旦 详细 循环 结束 ， 如 果 对 于 一 个 给 吓 的 学 生 及 给 定 的 成 绩 类 型 和 课 班 ， 
-- 成 绩 的 数目 小 于 所 需 量 ， 则 产生 异常 
ТЕ v grade count < r grade.NUMBER PER SECTION THEN 
v exit code := 'I'; 
raise e no grade; 
END IF; 
-- 如 果 去 掉 最 低 成 绩 的 标志 为 Y， 那 么 你 需要 将 最 低 成 绩 从 最 终 成 绩 中 去 掉 ， 除 非 对 
-- 所 有 成 绩 都 进行 了 检查 ， 否 则 ， 要 去 挥 哪个 最 低 成 绩 在 它 被 加 入 时 是 不 知道 的 
IF r grade.drop lowest = 'Y' THEN 
у Ғіпа1 grade := пу1 (у final grade, 0) - 
(у lowest grade * v grade регсепї); 


END ТЕ; 
END LOOP; 
-- 如 果 任 何 一 个 游标 没有 数据 行 ， 那 么 就 出 错 了 


IF v по rowsl = 'N' ОК у по rows2 = 'N' THEN 


ү exit code := 'N'; 
raise е по grade; 
END IF; 
P final_grade := v_final_grade; 


P_exit_code v_exit_code; 
EXCEPTION 
WHEN е по grade THEN 
P Ғіпа1 grade ;= núll; 
Р exit code у exit сое; 
WHEN OTHERS THEN 
P final grade := null; 
P exit_code := 'Е'; 
END final grade; 
END MANAGE GRADES; 


下 面 的 示例 是 一 个 测试 final _ grade 过 程 的 匿名 块 。 此 块 要 求 提供 student id 和 section id， 并 返回 最 终 成 绩 和 退出 代码 。 


在 编写 匿名 块 来 运行 代码 之 前 ， 审 查 过 程 参 数 的 顺序 往往 是 一 个 好 主意 。 在 SQL*PlIus 中 ， 这 可 以 通过 对 一 个 过 程 运行 describe (描述 ) 命令 来 实 
现 。 


SQL> desc manage grades 
PROCEDURE FINAL GRADE 


Argument Name Type In/Out Default? 
Р STUDENT ID NUMBER (8) IN 

P SECTION ID NUMBER (8) IN 

Р FINAL GRADE NUMBER (3) OUT 

Р ЕХІТ CODE CHAR OUT 


在 SQL Developer 中 ， 你 可 以 展开 package ( 包 ) 节操 ， 将 光标 悬 停 在 此 过 程 上 ， 以 获取 更 多 的 详细 信息 。 通 过 这 种 方法 ， 你 既 可 以 看 到 在 包头 中 
被 声明 的 内 容 ， 又 可 以 看 到 在 包 体 中 被 编译 的 内 容 ， 如 图 21-1 所 示 。 


ЕЙ ]Раскаде5 
_ 5-@ MANAGE_GRADES 
”日 -大 MANAGE GRADES Body 
{] final_grade 
В с огайе type 
-PA с grades 
J final -grade 
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图 21-1 SQL Developet 中 所 呈现 的 Manage_Gftades 包 
下 面 是 可 用 于 运行 包 manage_grades 的 匿名 块 的 示例 。 
示例 ch21 18.59 


SET SERVEROUTPUT ON 


DECLARE 
у student id student .student id%TYPE := &sv student id; 
v _ section іа section.section 14%ТҮРЕ := &SV section id; 
v_final_grade enrollment.final_grade%TYPE; 
v_exit_code CHAR; 

BEGIN 


manage дгайеѕ.Ғіпа1 grade (у student id, у section id, 
у final grade, у exit _ code); 


DBMS OUTPUT .PUT LINE ('The Final Grade is '||v final grade); 
DBMS OUTPUT.PUT LINE ('The Exit Code is '||v exit code); 
END; 


如 果 用 值 为 102 的 student_ id 和 值 为 89 的 section_id 来 运行 此 脚本 ， 你 会 在 SQL*Plus 中 得 到 以 下 结果 。 在 SQL Оемеіорегті{76, ВАМИ 
102 和 89 的 变量 ， 你 会 看 到 完整 的 代码 。 匿 名 块 完成 后 ， 两 种 输出 出 现 的 最 终 行 是 相同 的 。 


Enter value for sv student іа: 102 
old 2: v student іа student .student id%TYPE : 


&sv student іа; 


new 2: v student іа Student .student 14%ТҮРЕ := 102; 

Enter value for sv_section_id: 86 

old 3: v section іа section.section id%TYPE := &sv section id; 
new 3: v section іа section.section id%TYPE := 86; 


The Final Grade is 89 
The Exit Code is S 
PL/SQL procedure successfully completed. 


下 一 步骤 是 将 一 个 名 为 median grade 的 函数 添加 到 manage _grades 包 规范 中 ， 它 接受 一 个 课程 编号 (p_cource number) 、 一 个 课 班 编号 
(p_section_number) 和 一 个 成 绩 类 别 (p_grade_type) ， 并 返回 一 个 work_grade.grade9%TYPE。 还 需要 添加 此 函数 将 使 用 的 游标 以 及 此 函数 将 需 


的 任何 类 型 。 


示例 ch21 19.59 


CREATE ОК REPLACE PACKAGE MANAGE GRADES AS 
-- 遍历 一 个 给 定 课 班 的 全 部 成 绩 类 型 的 游标 
CURSOR c grade type 
(pc_section іа section.section id%TYPE, 
PC student Ір student . Student id%TYPE) 


І5 
SELECT GRADE ТҮРЕ CODE, 
NUMBER PER SECTION, 


PERCENT OF FINAL GRADE, 
DROP LOWEST 
FROM grade Туре weight 
WHERE section id = pc section id 
AND section_id IN (SELECT section іа 
FROM grade 
WHERE student іа = рс student id); 
-- 饥 历 一 个 给 定 课 班 中 一 个 给 定 学 生 的 全 部 成 绩 循环 的 游标 
CURSOR c grades 
(p_grade type code 
grade Туре weight .grade type code%TYPE, 
рс student іа student.student id%TYPE, 
рс section id section.section id%TYPE) IS 
SELECT grade type code,grade code occurrence, 
numeric grade 
FROM grade 
WHERE student_id = pc student id 
AND section_id = рс _ section id 
AND grade type code = р grade type _ code ; 
-- 计算 学 生 在 一 个 课 班 中 的 最 终 成 绩 的 函数 
Procedure final grade 
(Р student_id ІМ student.student id%type, 
P section іа ІМ section.section id%TYPE, 
P Final grade OUT enrollment .final дгайе$ТҮРЕ, 
P Exit Code OUT CHAR) 


-- 计算 中 位 数 成 绩 的 函数 
FUNCTION median grade 
(p_course_number section.course no%TYPE, 


р section number section.section no%TYPE, 
р grade type grade.grade type сойе$ТҮРЕ) 
RETURN grade.numeric дгайе$ТҮРЕ; 


CURSOR с _ work grade 
(p_course_no section.course no%TYPE, 
p_section no section.section no%TYPE, 
p_grade суре code grade.grade type code%TYPE 


YIS 
SELECT distinct numeric _ grade 


FROM grade 
WHERE section іа = (SELECT section id 
FROM section 
WHERE course по= р course no 
AND section_no = p section по) 


AND grade type code = р дгайе type _ code 


ORDER BY numeric grade; 
ТҮРЕ t_grade_type IS TABLE OF с work grade%ROWTYPE 


INDEX BY BINARY INTEGER; 
t grade t grade type; 
END MANAGE GRADES; 


下 一 步骤 是 将 一 个 称 为 median_ grade 的 函数 添加 到 manage grades 包 体 ， 它 接受 一 个 课程 编号 (р cource number) 、 一 个 课 班 编号 
(p_section_number) 和 一 个 成 绩 类 别 (P_grade їуре) 。 这 个 函数 将 基于 这 三 个 组 成 部 分 返回 中 位 数 成 绩 (work_grade.grade%TYPE 数 据 类 型 ) 。 


例如 ， 有 人 可 能 使 用 此 函数 来 回答 下 面 这 个 问题 ，“Java 导 论 第 2 课 班 家 庭 作 业 的 中 位 数 成 绩 是 什么 ” ”真正 的 中 位 数 可 能 会 包含 两 个 值 。 因 为 该 六 


能 返回 一 个 值 ， 如 果 中 位 数 是 由 两 个 值 组 成 的 ， 则 该 函数 将 返回 两 者 的 平均 值 。 
示例 ch21 20.sql| 


CREATE OR REPLACE PACKAGE BODY MANAGE GRADES AS 
Procedure final grade 
(P Student іа IN student.student id%type, 
P section id IN section.section id%TYPE, 
P Final _ grade OUT enrollment .final дгайе$ТҮРЕ, 
Р Exit Code OUT CHAR) 


IS 
v_student іа student . student _1d%TYPE; 
v_section id section.section 1d%TYPE; 
v_grade_type_ code grade _ type weight .grade type сойе$%ТҮРЕ; 
v grade percent NUMBER; 
v final grade NUMBER ; 
v_grade_count NUMBER; 
v_lowest_grade NUMBER; 
v exit code CHAR (1) := 0813 
- 下 两 个 变量 用 于 计算 一 个 游标 是 否 没有 结果 集 
v_no rowsl CHAR (1) := 'N'; 
v_no rows2 CHAR (1) := 'N'; 
e no grade EXCEPTION; 
BEGIN 
v весііоп іа := р section іа; 
у student іа := р student іа; 
开始 此 课 班 的 成 绩 类 型 的 循环 
FOR r grade іп с grade typetv section 1а, у _ Student іа) 
LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; 改变 指示 符 
у по rowsl := 'Y'; 
要 保存 每 个 课 班 的 成 绩 数量 ， 在 详细 游标 循环 之 前 重 置 为 0 
у дгайе count := 0; 
v grade type code := r gracde .GRADE ТҮРЕ CODE; 
- 用 于 保存 最 低 成 绩 的 变量 


-- 500 不 会 是 最 低 成 绩 
у Lowest grade := 500; 
-- 确定 用 什么 乘 以 一 个 成 绩 来 计算 最 终 成 绩 ， 必 须 考 谋 去 掉 最 低 成 绩 的 指示 符 是 否 是 了 
SELECT (r дгайе.регсепі of final grade / 
DECODE (r_grade.drop_lowest, 'Y', 
(г grade.number per section - 1), 
r grade.number per section 
К йы. 
ІМТО v grade percent 
FROM dual; 
-- 为 一 个 给 定 课 班 中 的 一 个 学 生 的 详细 成 绩 打 开 游 标 
Ee r detail in с grades(v grade type code, 
у student іа, у section іа) LOOP 
-- 因为 游标 是 打开 的 ， 所 以 它 有 一 个 结果 集 ; 改变 指示 符 
у no rowsz2 := 'Ү!; 
у grade count := v grade count + 1; 
-- 处 理 对 于 此 课 班 的 一 个 给 吓 的 成 绩 类 型 ， 条 目 数 量 比 应 该 有 的 条 目 更 多 的 情况 
If v дгайе _ count > r grade.number рег section THEN 
v exit code := 'T'; 
raise e no grade; 
END IF; 


& 


只 


-- 如 果 去 掉 最 低 成 绩 标 记 为 Y， 确定 要 去 掉 的 最 低 成 绩 
IF r grade.drop lowest = 'Y' THEN 
IF nvl(v_lowest_grade, 0) >= 
г detail.numeric grade 


THEN 
v_lowest_grade := г detail.numeric_grade; 
END IF; 
END IF; 
-- 在 详细 循环 中 用 当前 成 绩 的 百分比 来 增加 最 终 成 绩 
у final grade := nvl(v_final_grade, 0) + 
(r detail.numeric_grade * v grade percent); 
END LOOP; 


-- 一 旦 详细 循环 结束 ， 如 果 对 于 一 个 给 定 的 学 生 及 给 定 的 成 绩 类 型 和 课 班 ， 
-- 成 绩 的 数目 小 于 所 需 量 ， 则 产生 异常 
ТЕ v grade count < r grade.NUMBER РЕК SECTION THEN 
v exit code := "І"; 
raise e no grade; 
END IF; 
-- 如 果 去 掉 最 低 成 绩 的 标志 为 Y， 那 么 你 需要 将 最 低 成 绩 从 最 终 成 绩 中 去 掉 ， 除 非 对 所 有 
-- 成 绩 都 进行 了 检查 ， 否 则 ， 要 去 掉 哪个 最 低 成 绩 在 它 被 加 入 时 是 不 知道 的 
IF r grade.drop lowest = 'Ү' THEN 
v _ final grade := пу1 (у final grade, 0) - 
(v_lowest_grade * v grade percent); 


END IF; 
END LOOP; 
-- 如 果 任 何 一 个 游标 没有 数据 行 ， 那 么 就 出 错 了 


ТЕ v_no_rows1 = 'N' ОК v_no_rows2 = 'N' THEN 


v exit code := 'N'; 
raise e no grade; 

END IF; 

P final grade := v final grade; 
P exit code := v exit code; 
EXCEPTION 


WHEN e_no grade THEN 
Р final _ grade := null; 
P exit code := ү exit code; 
WHEN OTHERS THEN 
P final grade := null; 
Р exit code := 'E'; 
END final агаде; 


FUNCTION median grade 
(p_course_number section.course no%TYPE, 
р section number section.section no%TYPE, 
р grade type grade.grade type сойе%ТҮРЕ) 
RETURN grade.numeric grade%®%TYPE 
IS 
BEGIN 
FOR r work grade 
ІМ с work grade (р course number, р section number, р grade type) 
LOOP 
t grade (NVL(t grade .COUNT, 0) +1).numeric grade := г work grade .numeric grade; 
END LOOP; 
IF 七 grade .COUNT = 0 
THEN 
RETURN NULL; 
ELSE 
IF MOD(t grade.COUNT, 2) = 0 
THEN 
-- 如 果 有 偶数 个 作业 成 绩 。 则 找到 位 于 中 间 的 两 个 成 绩 ， 并 计算 它们 的 平均 数 
RETURN (t_grade(t_grade.COUNT / 2) .numeric grade + 
t_grade((t_grade.COUNT / 2) + 1) .numeric grade 


7 85 
ELSE 
-- ЖЖ #1 %д„ ET Р E Ну R 


RETURN 七 grade (TRUNC(t grade.COUNT / 2, 0) + 1) .numeric grade; 
END IF; 
END IF; 
EXCEPTION 
WHEN OTHERS 
THEN 
RETURN NULL; 
END median_grade; 
END MANAGE GRADES; 


下 面 的 示例 是 一 个 SELECT 语句 ， 它 使 用 函数 median_grade， 并 显示 课程 25 的 第 1 和 第 2 课 班 的 所有 成 绩 类 型 的 中 位 数 成 绩 。 
示例 ch21 21.sq| 


SELECT COURSE NO, 
COURSE NAME, 
SECTION NO, 
GRADE TYPE, 
manage grades.median grade 
(COURSE МО, 
SECTION NO, 
GRADE ТҮРЕ) 
median grade 


FROM 

(SELECT DISTINCT 
C.COURSE NO COURSE МО, 
CDESCRIPILLION COURSE NAME, 
S.SECTION NO SECTION М№О, 
G.GRADE TYPE CODE GRADE TYPE 

FROM SECTION S, COURSE C, ENROLLMENT E, GRADE G 

WHERE C.course no = s.course no 

AND  s.section_id = e.section іа 

AND  e.student_id = g.student іа 

AND с.соцгѕе по = 25 

AND 5ѕ.ѕесііоп по between 1 апа 2 

ORDER BY 1, 4, 3) grade source 


对 课程 25 的 第 1 和 第 2 课 班 的 所 有 成 绩 类 型 使 用 函数 median_grade 的 SELECT 语句 的 结果 如 下 : 


COURSE NO COURSE МАМЕ 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 
Programming 


10 rows selected. 


21.4 ”实验 4: 包 的 实例 化 和 急 始 化 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 在 初始 化 期 间 创 建 包 变量 。 


SECTION NO GRADE TYPE MEDIAN GRADE 


L ПЕЛ 98 
А ЕІ FL 
1 HM 76 
2 HM 83 
І МТ 86 
2 МТ 89 
1 РА эл, 
2 РА 97 
1, ЈА ga! 
2 02 78 
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加 载 到 数据 库 实例 的 SGA 中 ， 这 使 得 包 中 的 所 有 元 素 都 可 在 内 人 存 中 获得 


实例 化 过 程 是 指 将 友 生 以 下 步骤 : 


1) 包 的 公共 弟 量 将 被 赋予 一 个 初始 值 。 


2) 具有 声明 会 话 的 公共 变量 将 被 赋予 一 个 初始 值 。 


3) 如 果 在 包 体 中 有 初始 化 部 分 ， 它 就 会 被 执行 。 


在 初始 化 期 间 创 建 包 变量 


包 在 一 个 用 户 会 
了 为数， 这些 代码 不 再 重复 执行 。 


数据 类 型 ， 都 可 以 在 包 规 范 的 开头 被 声明 


。 任 何在 SGA 的 东西 都 将 比 数据 库 需要 查询 表 获 得 的 东西 能 更 加 快速 地 访问 。 


会 话 内 第 一 次 被 调用 时 ， 如 果 包 的 初始 化 部 分 中 存在 代码 ， 那 么 它们 将 被 执行 。 这 一 步 仅 执行 一 次 ， 如 果 用 尸 调用 该 包 的 其 他 过 程 或 
初始 化 部 分 包括 包 体 的 BEGIN 语 句 和 和 END 语句 之 间 的 一 切 内 容 。 


被 许多 过 程 和 阔 数 所 使 用 的 变量 、 游 标 ， 以 及 用 户 定 义 


一 次 ， 然 后 被 包 内 的 冰 数 和 过 程 使 用 ， 而 不 必 骨 次 声明 它们 。 


下 面 的 示例 在 student_api 包 中 创建 一 个 名 为 v_ current_date 的 包 全 局 变量 


示例 ch21 22.59 


CREATE OR REPLACE PACKAGE 
у current date DATE; 
PROCEDURE Discount Cost; 
FUNCTION new instructor id 


school арі as 


RETURN instructor.instructor 14%ТҮРЕ; 


END school api; 


下 面 的 脚本 添加 了 一 个 初始 化 部 分 将 系统 的 当前 日 期 赋予 变 


示例 ch21 23.59 


Œv current date。 此 变 


量 可 以 被 用 在 包 中 需要 使 用 当前 日 期 的 任何 过 程 中 。 


CREATE OR REPLACE PACKAGE BODY school api AS 
PROCEDURE discount cost 
І5 
CURSOR с group discount 
IS 
SELECT distinct s.course_no, c.description 
FROM section s, enrollment e, course c 
WHERE s.section id = e.section id 
GROUP BY s.course_no, c.description, 
e.section id, s.section id 
HAVING COUNT (*) >=8; 
BEGIN 
FOR г group discount ІМ с group _ discount 
LOOP 
UPDATE course 
ЗЕТ COSE = COSE F .95 
WHERE course_no = r group discount .course_no; 


DBMS OUTPUT .PUT LINE 
('A 5% discount has been given to' 
||r_group discount .course_no| |' 
'||r_group discount .description); 
END LOOP; 
END discount cost; 
FUNCTION new instructor id 
RETURN instructor .instructor id%TYPE 
IS 
v_new_instid instructor .instructor idbTYPE; 
BEGIN 
SELECT INSTRUCTOR Ір SEQ .NEXTVAL 
INTO v_new_instid 
FROM dual; 
RETURN у пем _instid; 
EXCEPTION 
WHEN OTHERS 
THEN 
DECLARE 


v_sqlerrm VARCHAR2 (250) := 
SUBSTR (SQLERRM, 1,250); 


BEGIN 
RAISE APPLICATION ERROR (-20003, 
'Error in instructor id: '||v_sqlerrm); 
END; 
END new instructor id; 
BEGIN 


SELECT trunc (sysdate, 'DD') 
INTO v current_date 
FROM dual; 
END school арі; 


21.5 “实验 5: SERIALLY REUSABLE 包 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


. 使 用 SERIALLY_REUSABIE 编 译 指示 。 


在 21.4 节 ， 你 学 到 了 如 何 把 加 载 对 象 到 3GA 作 为 实例 化 过 程 的 一 部 分 。 这 样 做 是 为 了 帮助 提高 包 的 性 能 。 但 是 ， 这 个 过 程 有 一 些 缺 点 。 


对 象 被 保持 


在 内 存 中 ， 并 且 可 能 产生 一 些 不 希望 的 副作用 和 和 错误， 例如， 如 果 一 个 包 游 标 保持 打开 。 上 此外， 如果 包 游标 很 大 ， 它 们 可 能 会 占用 大 量 的 会 话 内 存 ， 还 
不 能 释放 。 为 了 避免 这 些 副 作用 ， 你 可 以 使 用 SERIALLY_REUSABLE 编 译 指示 。 


使 用 SERIALLY_REUSABLE 编 译 指示 


如 果 你 想 利用 它 提 供 的 优势 ，SERIALLY REUSABLE 编译 指示 必须 同时 在 包 规 范 和 包 体 中 使 用 。 此 编译 指示 把 包 标 识 为 序列 化 可 重用 的 。 当 一 个 包 被 
这 样 标 记 时 ， 则 包 状 态 可 以 从 整个 会 话 降低 为 只 是 包 中 的 一 个 程序 调用 。 其 结果 与 初始 化 的 优点 相反 ， 这 意味 着 包 变 量 和 其 他 元 素 的 值 不 会 持久 。 调 用 
该 编译 指示 的 语法 是 在 包头 和 正文 中 的 1S 后 添加 以 下 行 : 


PRAGMA SERIALLY REUSABLE; 


在 使 用 序列 化 包 时 ， 要 牢记 以 下 几 氮 : 


. 序列 化 包 的 全 局 内 存 分 配 在 SGA， 而 不 是 在 用 户 全 局 区 (UGA) 。 这 种 方法 允许 包工 作 区 被 重用 。 每 次 包 被 重用 时 ， 其 包 级 变量 都 被 初始 化 为 它 
们 的 默认 值 或 NULL， 并 且 它 的 初始 化 部 分 被 重新 执行 。 


所 需 序 列 化 包 的 工作 区 的 最 大 数量 是 由 包 并 发 用 户 的 数目 确定 的 。SGA 增 加 的 内 存 使 用 是 通过 减少 UGA 或 程序 内 存 使 用 的 偏 移 量 得 到 的 。 此 外 ， 
如 果 数 据 库 需要 为 其 他 请 求 从 SGA 中 回收 内 存 ， 它 将 把 不 使 用 工作 区 淘汰 出 去 。 


. 如 果 某 个 包 不 是 SERIALLY_REUSABLE ， 那 么 其 包 状 态 被 存储 在 每 个 用 户 的 UGA 中 。 因 此 ，UGA 所 需 内 存量 与 用 户 的 数量 呈 线 性 增加 ， 从 而 限制 
其 可 扩展 性 。 包 状态 可 以 在 一 个 会 话 的 生存 期 中 持续 ， 锁 定 UGA 内 存 直到 会 话 结束 为 止 。 在 一 些 应 用 中 ， 比 如 Ortacle Office， 一 个 典型 的 会 话 会 持续 数 
Ko 


下 面 的 脚本 是 一 个 非常 简单 的 示例 ， 展 示 了 SERIALLY_REUSABLE 编 译 指示 是 如 何 操作 的 ( 若 想 要 更 清楚 地 展示 该 编译 指示 将 是 必要 的 ， 将 需要 一 个 
更 详细 的 示例 ) 。 


示例 ch21 24.59 


CREATE OR REPLACE PACKAGE show date 
IS 
PRAGMA SERIALLY REUSABLE; 
the date DATE := SYSDATE + 4; 
PROCEDURE display DATE; 
PROCEDURE set date; 
END show date; 
/ 
CREATE OR REPLACE PACKAGE BODY show date 
IS 
PRAGMA SERIALLY REUSABLE; 
PROCEDURE display DATE IS 
BEGIN 
DBMS OUTPUT .PUT LINE ('The date is ' || show date.the date); 
END; 
-- 初始 化 包 状 态 
PROCEDURE set date 15 
BEGIN 
show date.the date := sysdate; 
END; 
END show date; 


下 面 的 示例 演示 了 一 个 PL/SQL 块 来 执行 此 过 程 ， 并 说 明了 它 的 行为 是 怎样 的 。 


示例 ch21 25.59 


begin 
-- 初始 化 并 打印 包 变 量 
show date.display DATE; 
-- 改变 变量 the date 的 值 
show date.set date; 
-- 显示 变量 the_ date 的 新 值 
show date.display DATE; 
end; 


/ 
begin 


show date.display DATE; 
end; 


/ 


如 果 在 2014 年 7 月 27 日 运行 这 个 脚本 ， 它 的 结果 将 如 下 所 示 : 


anonymous block completed 
The date is 31-JUL-14 


The date 15 27-JUL-14 


anonymous block completed 
The date is 31-JUL-14 


这 个 示例 显示 了 变量 the_date 的 值 如 何 变化 取决 于 它 是 如 何 被 调用 的 。 当 不 使 用 SERIALLY_REUSABLE 编 译 指示 时 ， 包 变量 的 值 一 直 保 持 在 内 存 中 ， 
并 且 不 改变 ， 直 到 程序 用 编程 方式 改变 它 为 止 。 在 这 个 示例 中 ， 由 于 包 使 用 SERIALLY_REUSABLE 编 译 指示 ， 其 行为 是 不 同 的 。 包 在 一 个 PL/SQL 块 中 第 
一 次 被 调用 时 ， 包 的 初始 化 部 分 被 调用 ， 并 且 变 量 the date 的 值 被 设置 为 系统 日 期 加 上 四 天 。 然 后 显示 该 值 。 接 着 ， 过 程 sShow date.set _ date 被 执行 ， 
而 the_date 的 值 复位 为 系统 日 期 。 因 为 已 使 用 SERIALLY_REUSABLE 编 译 指 示 ， 所 以 不 保留 the_date 的 值 。 下 一 次 包 在 第 二 个 PL/SQL 块 中 被 引用 
时 ，the_date 的 值 由 包 的 初始 化 部 分 复位 。 


但 是 ， 当 包 使 用 编译 指示 SERIALLY REUSABLE 时 ， 包 状态 保存 在 系统 全 局 区 的 工作 区 中 。 包 状态 将 仪 持 续 一 个 服务 器 调用 的 持续 时 间 。 一 旦 调用 完 
成 ， 工 作 区 就 会 被 刷新 。 如 果 另 一 个 服务 器 调用 引用 同一 个 包 ，Oracle 将 重新 实例 化 此 包 ， 这 意味 着 它 重 新 初始 化 包 。 包 中 变量 的 任何 改变 都 将 会 于 
失 。 一 旦 一 个 工作 单元 完成 后 ，Oracle 数 据 库 需要 处 理 以 下 任务 : 


` 关闭 所 有 打开 的 游标 。 
. 释放 一 些 不 可 重用 的 内 存 。 
` 把 包 实 例 化 返回 给 保留 此 包 的 可 重用 的 实例 池 。 


数据 库 触 发 器 、 独 立 的 SQL 语句 ， 以 及 任何 其 他 类 型 的 PLUSQL 子 程序 都 不 能 访问 一 个 利用 了 SERIALLY_REUSABLE 编 译 指示 的 包 。 


21.6 RA 


在 本 章 ， 我 们 学 习 了 如 何 创建 包 。 本 草 首先 研究 了 包 规 范 和 包 体 的 细节 。 还 讲述 了 如 何 调 用 存储 的 包 ， 并 探讨 了 各 类 包 组 件 ， 如 私有 对 象 和 游标 变 
量 。 然 后 介绍 了 一 个 精心 制作 的 包 ， 它 把 许多 在 本 草 和 其 他 章节 讨论 的 概念 结合 在 一 起 。 包 的 初始 化 已 在 变量 初始 化 方面 述 及 。 此 外 ， 你 看 到 了 如 何在 
包 定 义 中 利用 SERIALLY_REUSABLE 编 译 指 示 防 止 Oracle 把 持 着 内 存 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 
的 理解 程度 。 


第 22 章 ”仓储 代码 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
-收集 存储 代码 的 相关 信息 


在 第 19 章 ， 我 们 了 解 了 过 程 ， 在 第 20 章 ， 我 们 了 解 了 函数 ， 而 在 第 21 章 ， 我 们 了 解 了 把 函数 和 过 程 组 成 一 个 包 的 过 程 。 现 在 ， 你 将 了 解 更 多 的 有 天 
将 代码 捆绑 成 一 个 包 的 意义 。 可 以 访问 许多 数据 字典 视图 来 收集 包 中 的 对 象 的 相关 信息 。 


包 中 的 函数 ， 必 须 符 合 附加 的 限制 才能 在 SELECT 语句 中 使 用 。 在 本 章 ， 你 将 学 习 如 下 内 容 : 这 些 限 制 是 什么 ， 以 及 如 何 实施 这 些 限制 。 你 还 将 学 习 
高 级 的 重 载 函 数 或 过 程 的 技术 ， 使 其 根据 传 入 参数 的 类 型 执行 不 同 的 代码 。 


221 实验 : 收集 存储 代码 的 相关 信息 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 从 数据 字典 获取 存储 代码 的 信息 。 
` 重 载 模块 。 


存储 程序 以 一 种 编译 后 的 形式 保存 在 数据 库 中 。 关 于 这 样 的 存储 程序 的 信息 ， 可 以 通过 各 种 数据 字典 视图 访问 。 在 第 19 草 ,我 们 了 解 了 两 个 数据 字 
典 视图 : USER_OBJECTS 和 USER_SOURCE。 在 第 13 章 ,我 们 了 解 了 另 一 种 视图 ，USER_TRIGGERS。 其 他 一 些 数据 字典 视图 也 可 用 于 获取 存储 代码 的 相 
天 信息 。 在 本 节 ， 你 将 学 习 如 何 利用 这 些 选 项 。 


22.22 Кай 


在 本 章 ， 我 们 了 解 了 可 用 于 收集 存储 代码 的 相关 信息 的 各 种 数据 字典 视图 。 这 些 视 图 使 你 能 够 获得 有 天 函数 、 过 程 和 包 的 参数 和 依赖 天 系 的 信息 。 
我 们 还 了 解 了 如 何 重 载 函 数 和 过 程 ， 使 得 取决 于 传 入 调用 函数 或 过 程 中 的 有 多 少 和 哪些 类 型 的 值 ， 可 以 以 不 同 的 万 式 使 用 同一 对 象 。 


顺便 况 况 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获 得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 23 音 ”Oracle 对 象 类 型 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
-对象 类 型 
“ 对 象 类 型 的 方法 


在 Oracle 中 ， 对 象 类 型 是 面向 对 象 的 程序 设计 的 主要 成 分 。 它 们 被 用 来 模拟 真实 世界 的 有 形 实体 ， 如 学 生 、 教 师 和 银行 账户， 以 及 抽象 的 实体 ， 如 
邮政 编码 、 几 何 形状 和 化 学 反应 。 


在 本 章 ， 你 将 学 习 如 何 创建 对 象 类 型 ,以 及 如 何在 集合 类 型 中 骨 套 对 象 类 型 。 此 外 ， 你 还 将 了 解 各 种 不 同 的 对 象 类 型 的 方法 和 它们 的 用 途 。 


本 章 是 介绍 性 的 ， 不 涉及 更 高 级 的 主题 ， 如 对 象 类 型 继承 和 演化 、REF 修 饰 符 和 对 象 类 型 表 (不 要 与 集合 混淆 ) 。 这 些 主题 ， 与 许多 其 他 主题 ， 都 在 
Oracle 的 文档 中 涵盖 ， 上 有 具体 而 言 ， 在 Oracle 的 《Database Object-Relational Developer’ s Guide》 中 。 


23.1 实验 1: 对 象 类 型 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 创建 对 象 类 型 。 
. 使 用 对 象 类 型 与 集合 。 


对 和 象 类 型 通常 由 两 部 分 组 成 : 属性 (数据 ) 和 方法 (AAIE) 。 属 性 是 摘 述 此 对 象 类 型 的 本 质 特征 。 例 如 ， 学 生 对 象 类 型 的 一 些 属性 可 能 是 姓 
和 名 、 联 系 信息 和 登记 信息 。 广 法 是 在 对 象 类 型 中 定义 的 函数 和 过 程 ， 它 们 是 可 选 的 。 它 们 表示 有 可 能 要 在 对 象 属 性 上 执行 的 操作 。 例 如 ， 学 生 对 象 类 
型 的 方法 可 以 更 新 学 生 联 系 信息 、 获 得 学 生 的 姓名 或 显示 学 生 的 信息 。 


对 象 类 型 通过 组 合 属性 和 方法 ， 促 进 了 数据 与 可 在 该 数据 上 执行 的 操作 的 封闭 。 作 为 一 个 示例 ， 图 23-1 显 示 了 对 象 类 型 Student。Sstudent ID, 
First Name、Zip 和 Employer 是 student 对象 类 型 的 一 些 属性 ， 而 Update Contact Info, Get Student ID 和 Get Student Name 是 一 些 方法 。 图 23-1 也 
显示 了 此 对 象 类 型 的 两 个 实例 ，Student 1 与 Student 2。 对象 实 例 是 对 象 类 型 的 值 。 换 句 话 说，Student 对 象 类 型 的 实例 student 1 和 student 2 包含 实 
际 学 生 数 据 ， 使 得 Get Student 1D 方 法 返回 实例 student 1 的 学 生 ID 102 和 实例 Student 2 的 学 生 ID 103。 


对 象 类 型 Student 


属性 方法 

Student ID Update Contact Info 
First Name Update Employer 
Last Name Get Student ID 
Street Address Get Student Name 
City Display Student Info 
State 

Zip 

Phone 

Employer 


对 象 实例 : Student 1 


属性 

Student ID: 102 

First Name: Fred 

Last Name: Crocitto 

Street Address: 101-09 120th St. 
City: Richmond Hill 

State: NY 

Zip: 1141 9 

Phone: 718-555-5555 

Employer: Albert Hildegard Co. 


方法 

Update Contact Info 
Update Employer 
Get Student ID 

Get Student Name 
Display Student Info 


你 知道 吗 ? 


对 象 实例 经 常 被 简称 为 对 象 。 


在 Oracle 中 ， 对 象 类 型 采用 CREATE OR REPLACE TYPE 子 句 创建 并 存储 在 数据 库 模式 中 。 因 此 ， 对 象 类 型 不 能 在 PL/SQL 块 或 存储 子 程序 中 创建 。 


HELE: Student 2 


属性 

Student ID: 103 

First Name: J. 

Last Name: Landry 

Street Address: 7435 Boulevard East #45 
city: North Bergen 

State: NY 

Zip: 07047 

Phone: 201-555-5555 

Employer: Albert Hildegard Co. 


方法 

Update Contact Info 
Update Employer 
Get Student ID 

Get Student Name 
Display Student Info 


图 23-1 ”对象 类 型 Student 


一 旦 对 象 类 型 已 被 创建 并 存储 在 数据 库 模 式 中 ，PL/SQL 块 或 子 程序 束 可 引用 此 对 象 类 型 。 


23.2 ”实验 2: 对 象 类 型 的 方法 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
` 使 用 构造 方法 。 


- 使 用 成 员 方 法 。 


` 使 用 静态 方法 。 
- 通过 Mapb 和 Otrdetr 方 法 比较 对 象 。 


在 23.1 节 ， 我 们 了 解 到 ， 对 象 类 型 的 万 法 是 指定 可 在 对 象 类 型 属性 上 执行 的 操作 ， 并 在 对 象 类 型 规范 中 定义 的 函数 和 程序 。 此 外 ， 我 们 还 了 解 了 如 
何 使 用 默认 的 系统 定义 的 构造 方法。 构造 方法 只 是 被 PLUSQL 闵 持 的 方法 类 型 之 一 。 其 他 一 些 方法 类 型 包括 成 员 、 静 态 、 映 射 和 排序 方法 。 方 法 类 型 通 弟 
由 特定 的 方法 执行 的 操作 来 确定 。 例 如 ， 构 造 方法 被 用 于 初始 化 对 象 的 实例 ， 而 映射 和 排序 方法 分 别 用 于 比较 和 排序 对 象 实例 。 


对 象 类 型 的 方法 通常 使 用 名 为 SELF 的 内 置 参 数 。 这 个 参数 表示 对 象 类 型 的 一 个 特定 实例 。 正 因为 如 此 ， 它 可 供 那 些 在 此 对 象 类 型 实例 上 调用 的 方法 
使 用 。 你 会 在 下 面 的 讨论 中 看 到 SELF 参 数 的 各 种 示例 |。 


23.3” 忆 结 


在 本 章 ， 我 们 学 会 了 如 何在 Oracle 中 定义 和 使 用 对 象 。 总 体 而 言 ，Oracle 中 的 对 象 类 型 类 似 于 Java 中 创建 的 类 。 它 们 包括 属性 和 方法 ， 其 中 ， 属 性 
表示 对 象 的 不 同 的 数据 元 素 ， 而 方法 用 于 执行 对 这 些 数据 元 素 的 各 种 操作 。 我 们 还 学 会 了 如 何 实现 和 使 用 不 同类 型 的 方法 来 初始 化 、 比 较 和 排序 对 象 。 
此 外 ， 我 们 研讨 了 如 何 使 用 对 象 与 集合 。 

ШЕ АУ 


配套 网 站 提供 了 本 章 的 补充 练习 及 参考 答案 ， 并 讨论 了 这 些 答 案 是 如 何 得 到 的 。 这 些 练习 的 主要 目的 是 帮助 你 利用 在 本 章 获得 的 一 切 技能 来 测试 你 


的 理解 程度 。 


第 24 章 ”Oracle 提供 的 包 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
- 利用 Oracle 提 供 的 包 扩 展 功 能 
. 利用 Oracle 提 供 的 包 报告 错误 


Oracle 已 经 在 其 数据 库 中 内 置 了 数 百 个 包 ， 它 们 可 以 扩展 你 用 PL/SQL 实 现 的 目标 。 数 据 库 的 每 个 新 版 本 都 配备 了 新 提供 的 包 。 随 同 版 本 
12c，Oracle 推 出 了 18 个 全 新 的 包 ， 而 且 在 许多 现 有 的 包 中 增加 了 新 的 程序 。 这 些 包 提供 了 无 法 单独 用 PL/SQL 实 现 的 功能 。 其 原因 是 ，Oracle 提 供 的 包 
使 用 了 C 编 程 语言 ， 这 不 是 你 可 以 用 普通 的 PL/SQL 包 完成 的 东西 。 因 此 ，Oracle 提 供 的 包 能 够 完全 访问 无 法 用 普通 的 PL/SQL 包 访问 的 操作 系统 和 Oracle 
服务 器 的 其 他 方面 。 你 已 经 熟悉 了 DBMS_OUTPUT 包 的 PUT_LINE 过 程 ， 这 是 用 来 在 缓冲 区 收集 调试 信息 以 便 输 出 的 。 本 章 介绍 了 Oracle 提 供 的 几 个 主 
要 的 包 ， 你 会 了 解 它们 的 基本 功能 以 及 如 何 利用 它们 。 


241 实验 1: 利用 Oracle 提 供 的 包 扩 展 功能 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 在 PL/SQL 中 利用 UTL_FILE 访 问 文件 。 
- 利用 DBMS_JOB 调 度 作业 。 
- 利用 DBMS_XPLAN 生 成 解释 计划 。 


- 利用 DBMS_SQL 产 生 隐 式 语句 结果 。 


24.2 30152: 利用 Oracle 提 供 的 包 报 告 错误 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
- 利用 DBMS_UTILITY 包 报告 错误 。 


- 利用 UTIL_ CALL_STACK 包 报告 错误 。 


在 第 8~10 草 中 ， 我 们 探索 了 在 程序 中 用 于 处 理 和 报告 错误 的 各 种 技术 。 运 今 为 止 ， 你 所 看 到 的 示例 都 很 简单 ， 即 处 理 一 个 或 多 个 异 弟 的 单个 脚本 。 
在 使 用 应 用 程序 工作 时 ， 和 弟弟 有 多 个 编程 单元 可 以 相互 调用 并 且 把 执行 控制 传递 到 某 个 中 间 层 或 前 器 。 在 这 样 的 情况 下 ， 适 当 的 错误 报告 机 制 是 很 重要 
的 。 如 果 没 有 它 ， 开 发 人 员 和 用 户 就 可 能 会 遇 到 各 种 各 样 的 问题 。 


在 PL/SQL 中 ， 有 两 个 预定 义 包 可 以 用 于 此 用 途 ， 它 们 分 别 是 : DBMS_UTILITY 和 UTL САП. STACK.。 
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在 本 章 ， 我 们 了 解 了 可 用 于 扩展 程序 功能 的 Oracle 提 供 的 各 种 包 。 我 们 回顾 了 在 存储 过 程 中 利用 UTL FILE 来 访问 操作 系统 文件 的 战略 。 我 们 还 学 习 
了 如 何 利用 DBMS XPLAN 生 成 的 解释 计划 来 分 析 SQL。 此 外 ， 我 们 还 看 到了 如 何 使 用 DBMS _SQL 来 生成 隐 式 语句 的 结果 。 本 章 最 后 探讨 了 利用 
DBMS UTILITY 和 UTL CALL STACK 报 告 错误 。 


з25®з ”优化 PL/SQL 


在 本 章 ， 你 将 学 习 如 下 内 容 : 
· PL/SQL 2. А. 
PL/SQL 优 化 级 别 
` 子 程序 内 联 


数据 库 开 发 人 员 在 复杂 的 开 友 环境 中 工作 时 通 弟 需要 提高 其 代码 的 性 能 。 这 种 做 法 的 出 友 点 通常 是 嵌入 在 PL/SQL 代 码 中 的 DML 语 句 的 性 能 评价 及 其 
随后 的 调整 。 一 旦 对 这 些 语句 进行 了 改进 ， 优 化 任务 就 被 认为 是 完成 了 ， 而 PL/SQL 代 码 本 身 的 性 能 优化 通常 被 忽视 。 


事实 上 ，Oracle 提 供 了 一 套 工 具 来 帮助 你 找 出 性 能 瓶 须 ， 并 提供 了 各 种 专门 面向 PL/SQL 的 优化 技术 。 例 如 ， 你 已 经 看 到 如 何 最 大 限度 地 减少 
PLMSQL 和 SQL 引擎 之 间 的 上 下 文 切换 次 数 ， 并 采用 批量 SQL 和 批量 绑 定 实现 更 好 的 性 能 。 在 本 章 ， 你 将 学 习 如 下 内 容 : PL/SQL 齐 析 器 和 跟踪 API、 
PL/SQL 层 次 式 剖 析 器 工具 ， 以 及 应 用 这 些 工 具 来 确定 潜在 的 性 能 问题 。 此 外 ， 你 还 将 了 解 PU/SQL 的 性 能 优化 器 和 它 的 优化 级 别 ， 并 研讨 一 种 称 为 子 程序 
内 联 的 新 式 优 化 技术 。 


25.1 实验 1: PLUSQL 调 优 工具 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 


- 4% A PL/SQLÈ] #3 API. 


. 使 用 跟踪 API。 
` 使 用 PL/SQL 层 次 式 训 析 器 。 


正如 前 面 所 提 到 的 ，Oracle 提 供 了 特定 的 工具 来 帮助 你 诊断 PL/SQL 代 码 的 性 能 问题 : PLUSQL 齐 析 器 API、 跟 踪 API 和 PL/SQL 层 次 式 剖 析 器 。 所 有 这 
些 工 具 都 通过 Oracle 提 供 的 包 实 现 ， 这 使 得 它们 既 容易 得 到 ， 又 很 容易 安装 和 使 用 。 


25.2 ”实验 2: PL/SQL 优 化 级 别 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
. 了 解 PL/SQL 优 化 级 别 。 


在 版 本 10g 中 ，Oracle 为 PL/SQL 编 译 器 引入 了 一 个 新 的 功能 ， 这 被 称 为 性 能 优化 器 。 实 质 上 ， 此 优化 器 允许 PL/SQL 编 译 器 重新 组 织 源 代码 ， 以 提高 
其 性 能 。 编 译 器 应 用 于 代码 的 优化 级 别 由 PLSQL OPTIMIZE LEVEL 参数 控制 ， 此 参数 可 在 实例 级 或 会 话 级 设 定 。 优 化 的 这 些 级 别 在 表 25-5 中 列 出 。 


表 25-5 PL/SQL 优 化 级 别 


优化 级 别 描 述 
级 别 0 无 优化 。 这 相当 于 Oracle 10g 前 的 版 本 
级 别 1 部 分 优化 。 这 包括 移 除 不 必要 的 计算 、 异 常 或 赋值 ， 但 不 对 源 代码 进行 重组 
级 别 2 默认 优化 。 这 产生 更 明显 的 性 能 提高 ， 因 为 代码 在 编译 过 程 中 可 能 被 重 写 并 /或 重新 放置 
级 别 3 在 11g 版 本 中 加 入 的 最 高 级 别 的 优化 。 这 使 用 了 自动 化 子 程序 内 联 


为 了 说 明 PLVSQL 代 码 的 性 能 是 如 何 被 不 同 的 优化 级 别 影响 的 ， 考 虑 一 个 执行 一 个 数字 FOR 循环 并 执行 一 些 无 意义 的 计算 的 简单 示例 。 它 分 别 在 
PLSQL OPTIMIZE_LEVEL 设 置 为 0、1 和 2 时 执行 。 此 外 ， 它 采用 了 PLVSQL 齐 析 器 ， 这 样 你 可 以 详细 碍 看 性 能 问题 实际 上 如 何以 及 在 何 处 上 友 生 。 注 意 ， 在 
示例 中 列 出 的 行 号 是 为 了 供 将 来 引用 ， 而 不 是 实际 PL/SQL 代 码 的 一 部 分 。SET TIMING ON 命令 使 Oracle 测 量 并 显示 脚本 的 执行 时 间 。 使 用 ALTER 
SESSION 命令 在 会 话 级 别 将 PL SQL OPTIMIZE LEVEL 变量 设置 为 指定 的 值 。 


加 注意 在 运行 本 节 中 使 用 的 示例 前 ，STUDENT 模 式 应 当 如 25.1 节 所 述 的 那样 启用 对 PL/SQL 剖 析 器 API 的 使 用 。 


示例 ch25_2a.sql 


SET TIMING ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 0; 


1 DECLARE 

2 v numl NUMBER; 

3 у num2 NUMBER; 

4 Уу num3 NUMBER; 

5 v run id BINARY INTEGER; -- 由 剂 析 器 产生 的 运行 ID 
6 BEGIN 

7 DBMS РКОЕІТЕК.5ТАКТ PROFILER ('Optimizer level at 0'); 
8 

9 FOR i IN 1..1000000 

10 LOOP 

11 у паті := 1; 

12 у num2 := і + 1/2 + sqrt (1); 

13 у num3 := v_num1 + у пит2; 

14 END LOOP; 

15 

16 DBMS PROFILER.STOP PROFILER(); 

17 


18 SELECT runid 
19 INTO у run id 
20 FROM plsql profiler runs 


21 WHERE run comment = 'Optimizer level at 0'; 

22 

23 DBMS OUTPUT.PUT LINE ('Optimizer level at 0, run ID - !||у гип іа); 
24 END; 


1ЕЯПЫЛЕНТ=Е НУ, ЧАИ — EENAA, HRAPL/SQOLAT APRETAR. 27у) 7 aTa, CET 
用 于 存储 剖析 器 运行 ID 的 v_ run_id 变 量 。 这 个 ID 是 从 PLSQL_PROFILER_RUNS 表 中 选择 并 在 脚本 的 未 尾 显示 的 。 剖 析 器 运行 时 数据 的 收集 通过 
DBMS_PROFILER.START_PROFILER 过 程 启动 ， 并 通过 DBMS_PROFILER.STOP_PROFILER 过 程 结束 。 


在 运行 时 ， 此 脚本 生成 以 下 输出 : 


Elapsed: 00:00:03.317 
Optimizer level at 0, run ID - 1 


脚本 输出 窗口 输出 的 第 一 行 显示 在 SQL Developer 中 执行 此 脚本 的 用 时 。 对 于 第 二 次 运行 ，PLSQL OPTIMIZE LEVEL 被 设置 为 1， 而 脚本 按 如 下 所 
示 进 行 修 改 。 所 有 更 改 以 粗 体 突出 显示 。 


示例 ch25 20.5а| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 1; 


DECLARE 
Vv numl NUMBER; 


1 

2 

3 у num2 NUMBER; 

4 v num3 NUMBER; 

5 v run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 

6 BEGIN 

7 DBMS PROFILER.START PROFILER ('Optimizer level at 1'); 


8 
9 FOR i IN 1.. 1000000 


10 LOOP 

11 Уу памі := 1; 

Ta v num2 := i + 1/2 + sqrt (і); 

1 v_num3 := у numi + у пит2; 

14 END LOOP; 

t5 

16 DBMS PROFILER.STOP PROFILER(); 

LF 

18 SELECT runid 

19 INTO у run іа 

20 FROM plsql profiler runs 

21 МИНЕКЕ run comment = 'Optimizer level at 1'; 
22 

23 DBMS OUTPUT.PUT LINE ('Optimizer level at 1, run ID - '||v_run_id); 
24 END; 


在 运行 时 ， 这 个 版 本 将 产生 以 下 输出 : 
Elapsed: 00:00:03.103 
Optimizer level at 1, run ID - 2 


需要 注意 的 是 ， 两 次 运行 之 间 有 一 个 很 微不足道 的 性 能 提高 。 
接 下 来 ， 考 虑 本 示例 的 另 一 个 版 本 ， 其 中 PLSQL OPTIMIZE LEVEL 被 设置 为 2， 而 PLUSQL 块 被 相应 地 修改 。 受 影响 的 语句 以 粗 体 突出 显示 。 
示例 ch25 2c.sq| 


1 DECLARE 

2 У numi NUMBER; 

3 у пит2 NUMBER; 

4 v num3 NUMBER; 

5 у run id BINARY_INTEGER; -- 由 剖析 器 产生 的 运行 ID 

6 BEGIN 

7 DBMS PROFILER.START PROFILER ('Optimizer level at 2'); 
8 


9 FOR 1 IN 1.. 1000000 


10 LOOP 

ДЕ у numl := 1; 

12 V num2 := і + 1/2 + sqrt (і); 

ка v_num3 :=V numl + у пит2; 

14 END LOOP; 

La 

16 DBMS PROFILER.STOP PROFILER (); 

17 

18 SELECT runid 

19 INTO у run іа 

20 FROM plsql profiler runs 

21 WHERE run comment = 'Optimizer level at 2'; 
22 

23 DBMS OUTPUT .PUT LINE ('Optimizer level at 2, run Ір - '||у гоп іа); 
24 END; 


在 运行 时 ， 这 个 版 本 的 脚本 将 产生 以 下 输出 : 


Elapsed: 00:00:02.562 
Optimizer level at 2, run ID - 3 


随 着 把 PLSQL OPTIMIZE LEVEL 设置 为 2， 在 性 能 上 的 提高 更 加 明显 。 


自从 把 优化 级 别 从 0 改 为 1 和 2， 友 生 了 什么 情况 ”为 了 回答 这 个 问题 ， 让 我 们 来 看 看 由 PLMSQL 刘 析 器 生成 的 数据 ; 


SELECT r.runid, r.run comment, d.line#, d.total occur, d.total time 
FROM plsql profiler _ runs г 
‚plsql _ profiler даса а 
‚plsql profiler units u 
WHERE r.runid = d.runid 
AND а.гчпіа = типта 
AND d.unit_number = u.unit_number 


SELECT 语 句 从 PL/SQL 剂 析 器 表 中 选择 被 执行 的 每 一 行 代码 (d.total оссиг>0) 的 数据 。 仔 细 查 看 第 11 行 生成 的 数据 (以 粗 体 突出 显示 ) 。 第 11 行 


AND ‘Gd.total occur > 0 
ORDER BY d.runid, а.11пе#; 


RUNID RUN COMMENT LINE# TOTAL OCCUR TOTAL TIME 
1 Optimizer level at 0 9 1000001 128784207 
І Optimizer level at 0 19 1000000 204515328 
1 Optimizer level at 0 р б. 1000000 1928730621 
1 Optimizer level at 0 13 1000000 235407659 
1 Optimizer level at 0 14 1 0 

1! Optimizer level at 0 16 1 13032 

2 Optimizer level at 1 9 1000001 122832257 
2 Optimizer level at 1 11 1000000 143920674 
2 Optimizer level at 1 12 1000000 1820567385 
2 Optimizer level at 1 13 1000000 181771219 
2 Optimizer level at 1 14 1 0 

2 Optimizer level at 1 16 1 12000 

3 Optimizer level at 2 9 1000001 134848732 
3 Optimizer level at 2 a Ea l 1000000 0 

С Optimizer level at 2 12 1000000 1583962321 
3 Optimizer level at 2 13 1000000 188121402 
3 Optimizer level at 2 16 1 10015 


对 应 于 赋值 语句 : 


L3 


它 在 数字 FOR 循环 的 循环 体 中 。 注 意 ， 尽 管 对 于 运行 ID 1 和 ID 2 (优化 级 别 分 别 为 0 和 1) ， 第 11 行 都 执行 了 100 万 次 ， 也 有 在 TOTAL_TIME 列 所 示 的 
性 能 提高 。 接 下 来 ， 查 看 对 于 运行 ID 3 (优化 级 别 为 2) 的 第 11 行 。 虽 然 TOTAL OCCUR 列 指出 此 赋值 语句 执行 了 100 万 次 ， 但 花费 在 该 操作 上 的 总 时 间 


у паті := І; 


却 为 0。 这 怎么 可 能 ? 


回顾 一 下 ， 把 优化 级 别 设置 为 2 会 局 用 代码 的 重新 放置 和 重 写 。 因 此 ， 在 第 11 行 中 的 赋值 操作 被 重新 放置 到 循环 外 ， 或 此 变量 v_ num1 被 整体 除去 ， 


而 它 的 值 第 13 行 被 取代 ， 这 是 可 能 的 。 因 此 ， 原 始 语句 : 


13 у num3 := Уу numi + у пит2; 
有 可 能 成 为 
La у num3 := 1 + v_num2; 


优化 级 别 2 引 入 的 另 一 个 重要 的 优化 技术 是 静态 游标 FOR 循环 使 用 限制 为 100 个 记录 的 隐 式 批量 读 取 。 因 此 ， 如 果 一 段 代 码 ， 在 游标 FOR 循环 中 逐个 
记录 地 读 取 并 处 理 ， 使 用 2 级 优化 的 记录 将 一 次 100 个 记录 地 批量 读 取 。 这 种 方法 会 产生 显著 的 性 能 改进 ， 如 下 面 的 示例 所 示 。 


示例 ch25_3a.sql 


SET TIMING ОМ; 


-- 创建 测试 表 
CREATE TABLE TEST TAB 
(со11 NUMBER) ; 


/ 

-- 用 随机 数据 填充 新 创建 的 表 

INSERT INTO TEST ТАВ 

SELECT ROUND (DBMS RANDOM.VRLUE (1, 99999999), 0) 
FROM dual 

CONNECT by level < 100001; 

COMMIT; 


EXEC DBMS STATS .GATHER TABLE STATS (user, 'TEST ТАВ'); 


-- 用 不 同 的 优化 级 别 运 行 相 同 的 代码 示例 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 1; 


BEGIN 
FOR rec IN (SELECT coll FROM test_tab) 
LOOP 
null; -- 什么 都 不 做 
END LOOP; 
END; 
/ 


ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


BEGIN 
FOR REC IN (SELECT со11 FROM test Сар) 
LOOP 
NULL; -- 什么 都 不 做 
END LOOP; 
END; 
/ 


首先 ， 这 个 脚本 创建 TEST TAB 表 。 然 后 ， 它 用 一 些 随 机 的 数值 数据 填充 了 TES TAB 表 ， 并 通过 DBMS STATS.GATHER TABLE STATS 过 程 来 收集 表 
统计 信息 。 
你 知道 吗 ? 


DBMS_STATS 包 用 于 收集 数据 库 对 象 的 各 种 统计 数据 。 这 些 统计 数据 可 一 次 针对 一 个 数据 库 对 象 进行 收集 ， 如 前 面 的 示例 所 示 ， 或 者 针对 数据 库 或 
模式 中 的 所 有 对 象 进行 收集 。 


接着 ， 此 脚本 把 优化 级 别 设置 为 1， 并 且 针 对 TEST_TAB 表 执行 游标 FOR 循 环 。 注 意 循 环 体 中 NULL; 语 句 的 使 用 。 实 质 上 ， 这 意味 着 在 循环 体 中 没有 
完成 什么 工作 。 最 后 ， 此 脚本 将 优化 级 别 设置 为 2， 再 次 执行 游标 FOR 循环 。 


在 运行 时 ， 此 示例 产生 下 面 的 输出 : 


table TEST_TAB created. 
Elapsed: 00:00:00.060 
100,000 rows inserted. 
Elapsed: 00:00:01.595 
committed. 

Elapsed: 00:00:00.016 
anonymous block completed 
session SET altered. 
Elapsed: 00:00:00.001 
anonymous block completed 
Elapsed: 00:00:00.767 
session SET altered. 
Elapsed: 00:00:00.002 
anonymous block completed 
Elapsed: 00:00:00.080 


仔细 得 看 以 粗 体 突 出 显示 的 用 时 。 执 行 时 间 从 0.767 变 成 了 0.080。 对 于 这 样 一 个 简单 的 脚本 ， 这 是 一 个 显著 的 提高 。 其 次 ， 考 虑 通过 创建 一 个 新 表 
TEST_TAB1 和 在 游标 FOR 循环 中 填充 它 来 扩充 这 个 示例 。 融 像 上 面 的 示例 ， 这 个 版 本 也 是 用 优化 级 别 1 和 2 来 执行 的 。 


示例 ch25 4а.59 
SET TIMING ON; 


-- 创建 测试 表 

CREATE TABLE test tabl (coll NUMBER) ; 

/ 

-- 用 不 同 的 优化 级 别 运行 相同 的 代码 示例 

ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 1; 


BEGIN 
FOR rec IN (SELECT со11 FROM test tab) 
LOOP 
INSERT INTO TEST ТАВ1 VALUES (rec.coll); -- 填充 新 创建 的 表 
END LOOP; 
END; 
/ 


ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


BEGIN 
FOR REC IN (SELECT coll FROM test tab) 
LOOP 
INSERT INTO TEST ТАВ1 VALUES (rec.coll); -- 填充 新 创建 的 表 
END LOOP; 
END; 
/ 


该 示例 产生 下 面 的 输出 : 


саре TEST TABL сгеаѓеа. 
Elapsed: 00:00:00.059 
session SET altered. 
Elapsed: 00:00:00.001 
anonymous block completed 
Elapsed: 00:00:10.683 
session SET altered. 
Elapsed: 00:00:00.002 


anonymous block completed 
Elapsed: 00:00:09.668 


只 要 把 INSERT 语 句 添加 到 循环 体 ， 两 种 优化 级 别 之 间 的 主要 性 能 提高 就 去 失 了 。 这 是 由 于 缺乏 对 DML 语 句 的 隐 式 优化 。 在 这 种 情况 下 ， 更 好 的 性 能 
是 通过 改变 脚本 并 添加 批量 SQL 优 化 技术 (在 第 18 草 包括 ) 获得 的 。 


最 后 两 个 示例 很 清楚 地 表明 ， 昌 然 认 识 到 PL/SQL 优 化 可 能 会 在 幕后 友 生 是 有 帮助 的 ， 但 完全 依赖 于 它 不 是 个 好 主意 。 虽 然 有 时 你 创建 的 代码 可 以 在 
编译 时 进行 优化 ， 但 通过 优化 实践 ， 并 在 性 能 上 太 现 结果 的 基础 上 明确 改变 代码 要 好 得 多 。 


25.3 ”实验 3: 子 程序 内 联 


完成 此 实验 后 ， 你 将 能 够 完成 以 下 任务 : 
: 使 用 子 程序 内 联 。 


在 25.2 节 ， 我 们 了 解 了 不 同 的 PL/SQL 优 化 级 别 。 具 体 来 说 ， 你 看 到 了 优化 级 别 为 0、1 和 2 的 示例 。 在 本 节 ， 我 们 将 了 解 子 程序 内 联 的 概念 ， 并 探讨 
它 是 如 何 与 优化 级 别 3 结合 使 用 的 。 


在 《PL/SQL Language Reference) (PL/SQLi 语 言 参考 ) 中 ， 子 程序 内 联 的 概念 定义 如 下 : “ 子 程序 内 联 将 子 程序 调用 替换 为 被 调用 的 子 程序 的 
副本 (如 果 调 用 和 被 调用 子 程序 都 在 同一 个 程序 单元 中 ) 。” 子 程序 内 联 可 以 利用 PRAGMAi 语 句 或 通过 设置 PLSQL OPTIMIZE LEVEL 3 来 启用 ， 如 清单 
25-1 所 示 。 


清单 25-1 启用 子 程序 内 联 


PRAGMA INLINE (subprogram name, 'YES'); 


或 


ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 3; 
PRAGMA INLINE 语 句 使 用 时 ， 它 应 该 出 现在 每 个 子 程序 调用 之 前 。 回 顾 一 下 ，PLSQL OPTIMIZE LEVEL 也 可 以 在 实例 级 被 设置 为 特定 值 。 当 
PLSQL OPTIMIZE_LEVEL 被 设置 为 3 时 ， 子 程序 内 联 是 自动 完成 的 。 


最 好 通过 查看 一 些 示例 来 说 明子 程序 内 联 的 用 法 和 与 其 相关 的 性 能 提高 。 在 这 些 脚 本 中 ， 同 样 的 PL/SQL 人 代码 被 执行 两 次 。 对 于 这 两 次 运行 ，PL/SQL 
优化 级 别 都 保持 为 2， 但 子 程序 内 联 仪 在 第 二 次 运行 中 局 用 。 示 例 中 的 行 号 是 供 将 来 参考 的 ， 而 不 是 实际 PLUSQL 代 码 的 一 部 分 。 


全 注 商 在 运行 本 节 的 示例 前 ，STUDENT 模 式 应 该 被 扩展 到 使 用 PL/SOL 层 次 式 训 析 器 。 必 要 步骤 已 在 25.1 节 中 描述 。 


示例 ch25 5a.sq| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


1 DECLARE 

2 v num PLS INTEGER; 

3 Уу run id BINARY INTEGER; -- 由 诈 析 器 产生 的 运行 ID 
4 

5 FUNCTION test func (numl ІМ PLS INTEGER 
6 ,num2 IN PLS INTEGER) 
7 RETURN PLS INTEGER 

8 ЕБ 

Э BEGIN 

10 RETURN (num1 + num2); 

11 END test_func; 

12 

13 BEGIN 


14 DBMS HPROF .START PROFILING ('PLSHPROF DIR', 'test.txt'); 
15 FOR i IN 1..100000 

16 LOOP 

17 у пот := еве Гипс (1-1; і); 

18 END LOOP; 

19 DBMS HPROF .SIOP PROFILING; 


20 

21 -- AA AHA ЭР л E bAT ID 

22 Уу гоп іа := DBMS HPROF .ANALYZE ('PLSHPROF DIR', 'test.txt'); 

23 DBMS OUTPUT .PUT LINE ('Inline pragma is not enabled, run ID - '||у run id); 
24 END; 


此 脚本 定义 了 一 个 返回 两 个 数 的 总 和 的 函数 test func。 此 函数 然后 在 数字 FOR 循 环 体 中 被 调用 ， 在 那里 它 的 结果 被 赋予 变量 v_ num。 人 循环 的 执行 由 
PL/SQL 层 次 式 剖 析 器 进行 剖析 。 剖 析 器 将 其 原始 数据 写 入 位 于 /plshprof/results/ 目 录 的 test.txt 文 件 。 最 后 ， 对 剖析 器 输出 进行 分 析 ， 并 记录 在 其 表 
中 ， 并 且 在 屏幕 上 显示 运行 ID 以 供 以 后 参考 。 


在 运行 时 ， 这 个 版 本 的 示例 产生 下 面 的 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is not enabled, run ID - 1 
Elapsed: 00:00:00.602 


接 下 来 ， 考 虑 人 在 其 中 局 用 子 程序 内 联 的 本 示例 的 修改 版 本 。 更 改 以 粗 体 突 出 显示 。 
示例 ch25 5b.sq| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


DECLARE 
v num PLS INTEGER; 
у run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 


;num2 IN PLS INTEGER) 
RETURN PLS INTEGER 
IS 
BEGIN 


1 
2 
З 
4 
5 FUNCTION test_func (num1 ІМ PLS_INTEGER 
6 
7 
8 
з 
10 RETURN (пит1 + num2); 


11 END test func; 

12 

13 BEGIN 

14  DBMS_HPROF.START_PROFILING ('PLSHPROF_DIR', 'test.txt'); 
15 ROR 1 ІМ 1..100000 


16 ГООР 

ak -- 为 每 个 函数 调用 都 启用 了 内 联 编译 

18 PRAGMA INLINE (test func, 'YES'); 
19 у пит := test func (1-1, i); 


20 END LOOP; 
21 DBMS HPROF.STOP PROFILING; 


22 
2з -- ФАНЕ т Е 354 ID 

24 Уу run id := DBMS_HPROF.ANALYZE ('PLSHPROF DIR', 'test.txt'); 

25 DBMS OUTPUT .PUT LINE ('Inline pragma is enabled, run ID - !||у гип id); 
26 END; 


在 运行 时 ， 这 个 版 本 的 示例 产生 下 面 的 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is enabled, run ID - 2 
Elapsed: 00:00:00.073 


注意 ， 在 第 二 次 运行 中 加 入 PRAGMA INLINE 语 句 而 不 改变 PL/SQL 优 化 级 别 已 经 获得 了 多 少 性 能 提高 。 


正如 前 面 所 提 到 的 ， 当 PL/SQL 优 化 级 别 设置 为 2 时 ， 子 程序 内 联 必须 在 每 个 子 程序 调用 之 前 明确 地 局 用 。 因 此 ， 如 果 把 PRAGMA INLINE 语 句 置 于 
循环 外 ， 融 不 会 上 友 生 子 程序 内 联 。 这 表现 在 下 面 的 示例 中 。 受 影响 的 语句 以 粗 体 显示 。 


示例 ch25 5c.sdqd| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


DECLARE 
v_num PLS INTEGER; 
v_run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 


:num2 IN PLS INTEGER) 
RETURN PLS INTEGER 
IS 
9 BEGIN 
10 RETURN (пит1 + пит2); 
11 END test _ func; 


1 
2 
3 
4 
5 FUNCTION безі _ func (numl IN PLS INTEGER 
6 
7 
- 


РУ. 

13 BEGIN 

14 DBMS HPROF.START_ PROFILING ('PLSHPROF DIR', 'test.txt'); 
LS 


16 -- 内 联 编译 被 移 到 循环 外 

T. PRAGMA INLINE (test_func, 'ҮЕ5'); 
18 FOR 1 ІМ 1..100000 

19 ООР 

20 v num := test func (1-1, i); 

21 END LOOP; 

22 DBMS НРКОЕ.5ТОР PROFILING; 


24 -- 分 析 剖 析 器 的 输出 并 显示 它 的 运行 ID 


25 v run іа := DBMS HPROF .ANALYZE ('PLSHPROF DIR', 'test.txt'); 
26 DBMS OUTPUT.PUT LINE 
27 ('Inline pragma is enabled for a single call, run ID - '||v_run id); 


28 END; 


在 运行 时 ， 此 版 本 的 脚本 生成 以 下 输出 : 


session SET altered. 
Elapsed: 00:00:00.001 


Inline pragma is enabled for a single call, run ID - 3 


Elapsed: 00:00:00.490 


正如 你 所 看 到 的 ， 我 们 几乎 所 有 的 性 能 提高 都 丢失 了 。 


由 于 每 个 示例 运行 都 被 剖析 和 分 析 了 ， 让 我 们 来 看 看 PL/SQL 层 次 式 训 析 器 已 收集 了 什么 样 的 信息 : 


SELECT runid, function, line#, calls, subtree elapsed times et 


, function elapsed time f e t 
FROM dbmshp function _ info; 


RUNID FUNCTION LINE# CALLS SET F ET 
1 __ апопутоцѕ block.TEST FUNC 5 100000 17461 17461 
1 STOP _ PROFILING 63 1. 0 0 
2 STOP _ PROFILING 63 1 0 0 
z __anonymous block.TEST FUNC 5 100000 18327 18327 
3 STOP PROFILING 63 1 0 0 
对 于 运行 ID 1 和 ID 3，test func 被 执行 100000 次 ， 与 此 相反 ， 对 于 运行 ID 2， 不 存在 对 test_func 的 引用 。 实 际 上 ， 在 编译 时 ， 此 代码 被 修改 为 类 似 
下 面 的 示例 〈 所 有 更 改 以 粗 体 显示 ) : 
示例 ch25 5d.sql 
SET TIMING ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 
1 DECLARE 
2 у num PLS INTEGER; 
3 Уу run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 
4 
5 BEGIN 
6 DBMS HPROF.START PROFILING ('PLSHPROF DIR', 'test.txt'); 
7 FOR i IN 1..100000 
8 LOOP 
9 у num := i-1 + i; -- 没有 5| 用 test func 
10 END LOOP; 
11 DBMS HPROF.STOP PROFILING; 
12 
13 -- Фу h F Е 124 ID 
14 Уу run іа := DBMS HPROF .ANALYZE ('РІЅНРКОЕ DIR', 'test.txt'); 
15 DBMS OUTPUT .PUT LINE ('Іп1іпе pragma is enabled, run Ір - '||у run іа); 


16 END; 


正如 前 面 所 提 到 的 ， 把 优化 级 别 设置 为 3 确保 只 要 有 可 能 就 执行 隐 式 子 程序 内 联 。 这 点 可 以 通过 下 面 的 示例 证 实 (修改 的 语句 以 粗 体 显示 ) : 


示例 ch25 5e.sq| 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 3; 


1 DECLARE 
2 v num PLS INTEGER; 

3 Уу run id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 
4 

5 FUNCTION test_func (пит1 IN PLS INTEGER 

6 ,num2 IN PLS INTEGER) 

7 RETURN PLS INTEGER 

8 IS 

9 BEGIN 


10 RETURN (num1 + пит2); 
11 END test func; 


12 

13 BEGIN 

14 DBMS HPROP .START PROFILING ('PLSHPROF DIR', 'test.txt'); 
29 

16 FOR і ІМ 1..100000 

17 LOOP 

18 улыт а Cest Eune {121.075 


19 END LOOP; 
20 DBMS НРКОЕ.5ТОР PROFILING; 


21. 

22 -- 分 析 剖 析 器 的 输出 并 显示 它 的 运行 ID 

23 v run id := DBMS HPROF.ANALYZE ('PLSHPROF DIR', 'test.txt'); 

24 DBMS OUTPUT.PUT LINE ('Inline pragma is enabled implicitly, run ID -'||v_run_id); 
25 END; 


在 这 个 版 本 中 ，PLSQL OPTIMIZE_LEVEL 已 被 设置 为 3， 而 PL/SQL 编 译 器 能 够 明确 地 执行 子 程序 内 联 。 这 由 脚本 的 输出 证 实 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is enabled implicitly, run ID - 4 
Elapsed: 00:00:00.065 


正如 你 所 看 到 的 ， 根 据 用 时 ， 似 乎 编译 器 已 经 执行 了 子 程序 内 联 。 这 个 事实 可 以 通过 检查 由 PL/SQL 层 次 式 剖 析 器 产生 的 数据 来 确认 : 


SELECT runid, function, line#, calls, subtree elapsed time s е t 
, function elapsed time f е t 
FROM dbmshp function info 
WHERE runid = 4; 


RUNID FUNCTION LINE# CALLS SET F ET 


< STOP PROFILING 63 3, 0 0 


当 优 化 级 别 设置 为 2 并 且 为 特定 的 立 数 /过 程 指定 子 程序 内 联 时 ， 该 功能 不 会 传播 到 正 从 它 调用 的 过 程 /函数 中 。 换 句 话说 ， 如 果 为 过 程 P1 局 用 了 子 程 
序 内 联 ， 并 且 它 引用 了 函数 F1 和 F2， 这 些 函 数 不 会 局 用 内 联 。 这 个 概念 由 下 一 个 示例 进一步 说明 。 


示例 ch25 6a.sq| 


SET TIMING ОМ; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 2; 


DECLARE 
y= /— 


у гип id BINARY INTEGER; -- 由 剖析 器 产生 的 运行 ID 


;num2 IN PLS INTEGER) 


2 
С 
4 FUNCTION f1 (numl ІМ PLS INTEGER 
5 
6 RETURN PLS INTEGER 

7 

8 


IS 
BEGIN 
9 RETURN (numl + num2); 
10 END f1; 
i a 
иб. FUNCTION f2 (str1 ІМ VARCHAR2 
13 ,Str2 ІМ VARCHAR2) 
14 RETURN VARCHAR2 
ЕБ IS 
16 BEGIN 
17 RETURN (str1||' '||в&г2); 
18 END f2; 
19 
20 PROCEDURE p1 (numl IN PLS INTEGER 
а Е /mnum2 ІМ PLS INTEGER 
22 ;Strl1 IN VARCHAR2 
29 ;Str2 IN VARCHAR2) 
24 IS 
25 у num NUMBER; 
26 v_str VARCHAR2 (100); 
PATI BEGIN 
28 v num := f1 (пит1, пит2); 
29 vV БЕТ Se ФАВСТ, SCIZ) i 
30 END pl; 
э 
32 BEGIN 


з DBMS HPROF .START PROFILING ('PLSHPROF DIR', 'test.txt'); 
34 FOR 1 in 1..100000 


35 LOOP 

36 -- 为 每 个 过 程 调用 都 启用 了 内 联 编译 

37 PRAGMA INLINE (р1, 'YES'); 

38 pl (21-15 Coal to опат (ауу: 


39 END LOOP; 

40 РВМ5 НРКОЕ.5ТОР PROFILING; 

41 

42 -- ГНА Ш 

43 v run іа := DBMS HPROF .ANALYZE ('РІЅНРКОЕ DIR', 'test.txt'); 

44 DBMS OUTPUT.PUT LINE ('Inline pragma is enabled, run ID - '||v_run_id); 
45 END; 


在 这 个 示例 中 ， 有 两 个 国 数 f1 和 f2。 这 些 国 数 是 由 程序 p1 调 用 的 ， 而 这 又 在 数值 FOR 循环 内 被 调用 。 需 要 注意 的 是 ， 已 明确 对 每 个 过 程 调用 局 用 了 
子 程序 内 联 。 本 示例 产生 下 面 的 输出 : 
session SET altered. 
Elapsed: 00:00:00.001 


Inline pragma is enabled, run ID - 5 
Elapsed: 00:00:01.179 


PL/SQL 层 次 式 剖 析 器 报告 了 下 面 这 些 运行 时 统计 信息 : 


SELECT runid, function, line#, calls, subtree elapsed time s е t 
‚ function elapsed time f е t 
FROM dbmshp function _ info 
WHERE runid = 5; 


RUNID FUNCTION LINE# CALLS SET FET 
Б _ anonymous block.F1 1 100000 20595 20595 
5 _ anonymous block.F2 12 100000 42010 42010 
п STOP PROFILING 63 Д. 0 0 


为 了 使 函数 f1 和 f2 启 用 子 程序 内 联 ，PLSQL ОРТІМІДЕ LEVEL 应 设置 为 3 或 应 该 在 国 数 的 调用 之 前 执行 PRAGMA INLINE 语 句 。 当 优化 级 别 设置 为 3 
时 ， 这 个 脚本 会 产生 下 面 这 样 的 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is enabled, run ID - 6 
Elapsed: 00:00:00.042 


PL/SQLÆ АЙТЕКЕ 7 REHE: 


SELECT runid, function, line#, calls, subtree elapsed time ѕ е t 
, function elapsed time f е t 
FROM dbmshp function info 
WHERE runid = 6; 


RUNID FUNCTION LINE# CALLS SET FET 


6 STOP PROFILING 63 1 0 0 

当 PL/SQL 代 码 包 含 府 入 式 SQL 语 句 时 ， 由 于 子 程序 内 联 获得 的 性 能 提升 变 得 微不足道 。 这 是 因为 通常 情况 下 SQL 语句 是 执行 时 间 的 主要 消费 者 。 考 
虑 前 面 的 示例 的 一 个 修改 版 本 ， 其 中 已 把 SELECT INTO 语 句 添加 到 函数 {1 和 f2 中 。 所 有 更 改 都 以 粗 体 显示 。 

示例 ch25_6b.sql 


SET TIMING ON; 
ALTER SESSION SET PLSQL OPTIMIZE LEVEL = 3; 


DECLARE 
у гоп id BINARY INTEGER; -- 由 训 析 器 产生 的 运行 ID 


num2 IN PLS INTEGER) 


1 
2 
а 
4 FUNCTION f1 (numl ІМ PLS INTEGER 
5 
6 RETURN PLS INTEGER 

7 

8 


IS 

v num PLS INTEGER; 
9 BEGIN 
10 SELECT numi + num2 
il INTO у num 
12 FROM dual; 
13 RETURN v num; 
14 END f1; 
15 


16 FUNCTION f2 (strl ІМ VARCHAR2 


а, ; Str2 IN VARCHAR2) 
18 RETURN VARCHAR2 


L3 І5 

20 у srt УАКСНАР2 (50); 

21 BEGIN 

22 SELECT str1||' '||str2 

23 INTO v str 

24 FROM dual; 

25 RETURN (у str); 

26 END f2; 

27 

28 PROCEDURE р1 (num1 IN PLS INTEGER 
29 /num2 IN PLS INTEGER 
30 ;Strl1 IN VARCHAR2 
Эл, ;Str2 IN VARCHAR2) 
32 15 

33 v_num NUMBER; 

34 v_str VARCHAR2 (100); 

Tir BEGIN 

36 v_num := f1 (numi, num2) ; 

37 у Btr := f2 (strl, str2); 

38 END pl; 

39 

40 BEGIN 


41 DBMS HPROF.START_ PROFILING ('PLSHPROF DIR', 'test.txt'); 
42 FOR 1 іп 1..100000 

43 LOOP 

44 DL (1-1, 1, Со спат (1-1), БӨ OREL iJj 

45 END LOOP; 

46 DBMS НРКОЕ.5ТОР PROFILING; 


47 

48 -- 分 析 剖 析 器 的 输出 

49 Уу run id := DBMS HPROF .ANALYZE ('PLSHPROF DIR', 'test.txt'); 

50 DBMS OUTPUT .PUT LINE ('Inline pragma is enabled, run Ір - '||v run іа); 
51 END; 


在 运行 时 ， 此 脚本 生成 以 下 输出 : 


session SET altered. 

Elapsed: 00:00:00.001 

Inline pragma is enabled, run ID - 7 
Elapsed: 00:00:06.156 


请 注意 用 时 是 如 何 从 0.042 增 加 至 6.156 的 ， 即 使 两 次 运行 的 优化 级 别 都 被 设 定 为 3。PL/SQL 层 次 陈 剖 析 器 为 运行 ID 7 报告 了 如 下 统计 数据 : 


SELECT runid, function, line#, calls, subtree elapsed times е t 
, function elapsed time f e t 
FROM dbmshp function _ info 
WHERE runid = 7; 


RUNID FUNCTION LINE# CALLS 5 ЕТ FET 
7 _ Static 541 exec _ line 44 200000 4382821 4382821 
Ж STOP PROFILING 63 £ 0 0 


PLUSQL 优 化 器 能 够 应 用 子 程序 内 联 ， 但 性 能 没有 提高 ， 这 是 由 在 第 44 行 执行 的 SQL 语句 导致 的 。 正 如 我 们 所 预料 的 ， 每 个 SQL 语句 都 被 执行 了 
100000 次 ， 从 而 显著 增加 了 执行 总 时 间 。 这 个 运行 结果 也 强调 了 ， 在 这 种 特定 的 情况 下 ， 把 消 数 f1 和 f2 中 的 SELECT INTO 语 名 重新 放置 到 循环 体内 部 也 
不 会 改善 性 能 。 
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在 本 章 ， 我 们 了 解 了 PL/SQL 优 化 级 别 ， 并 且 学 到 了 PL/SQL 编 译 器 如 何 根 据 这 些 级 别 来 优化 代码 。 此 外 ， 我 们 还 探讨 了 子 程序 内 联 的 概念 ， 并 研究 了 
在 什么 情况 下 ， 它 可 航 用 来 改善 PHSQL 代 码 的 性 能 。 最 后 ， 你 学 会 了 如 何 利用 PLMSQL 刘 析 器 API 和 PL/SQL 层 次 式 剖 析 器 来 收集 和 解释 PL/SQL 运 行 时 统 
计 信息 。 把 这 些 优化 技术 与 诸如 批量 SQL 之 类 的 优化 万 法相 结合 ， 可 以 创建 强大 和 高 性 能 的 代码 。 


附录 APL/SQL 格 式 化 准则 


本 附录 总 结 了 整 本 书 中 使 用 的 一 些 PLUSQL 格 式 化 准则 。 虽 然 格 式 化 准则 并 不 是 PLUSQL 的 必需 部 分 ， 但 它们 可 作为 促进 开 友 质量 更 好 ， 具 有 更 好 的 可 
读 性 ， 并 且 更 容易 维护 的 代码 的 最 佳 实践 。 


大 小 瑟 


PL/SQL 与 SQL 一 样 ， 是 不 区 分 大 小 写 的 。 有 关 大 小 写 的 一 般 准 则 如 下 : 


. 关键 字 (例如 ，BEGIN、EXCEPTION、END、IF-THEN-ELSE、LOOP、END LOOP) 、 数 据 类 型 (例如 ，VARCHAR2、NUMBER) 、 内 置 函 


Ж (例如 ，LEAST、SUBSTR) ， 以 及 用 户 定义 的 子 程序 (例如 ， 过 程 、 函 数 、 包 ) 都 使 用 大 写 。 

. 变量 名 以 及 SQL 中 的 列 名 和 表 名 使 用 小 写 。 
空白 

空 日 (多余 的 行 和 空格 ) 在 PLUSQL 中 与 在 SQL 中 同样 重要 。 它 是 改善 可 读 性 的 一 个 主要 因素 。 换 名 话说， 你 可 以 通过 在 代码 中 使 用 适当 的 缩 进来 显 
示 程 序 的 逻辑 结构 。 下 面 是 一 些 建议 : 

. 在 等 号 或 比较 运算 符 的 两 侧 都 放置 空格 。 


. 将 结构 的 单词 靠 左 对 齐 〈 例 如 ，DECLARE、BEGIN、EXCEPTION 和 END，IFE 和 END IFE，LOOP 和 END LOOP) 。 此 外 ， 为 结构 内 的 结构 缩 进 
三 个 空格 〈 使 用 空格 键 ， 而 不 是 Tab 键 ) 。 


在 主要 部 分 之 间 放 置 空 行 ， 以 把 它们 互相 分 开 。 
. 把 同一 个 结构 的 不 同 逻 辑 部 分 放 在 单独 的 行 上 ， 即 使 结构 很 短 也 是 如 此 。 人 例如， 把 IF 和 THEN 放 置 在 一 行 上 ， 而 把 ELSE 和 END IF 放置 在 不 同 的 行 
Ès 


命名 约定 


为 了 确保 不 与 天 键 字 和 列 名 / 表 名 发 生 冲 突 ， 使 用 下 面 的 前 缀 是 有 帮助 的 : 


.con_ 和 常量 名 。 

' i_in 参 数 名 、o_out 参 数 名 、io_in_out 参 数 名 。 
` Cc_ 游 标 名 或 名 称 _cur。 

.tfc_ 引 用 游标 名 。 

гЗ ААК tec。 


· РОК г stud IN c_stud LOOPhttp://www.hzcourse.com/resource/readBook?path= /openresources/teach_ebook/uncompressed/15603/OEBPS/Text/... o 


· FOR stud тес IN stud_cur LOOP. 


type_ 名 称 或 名 称 _type (用 于 用 户 定义 的 类 型 ) 。 


` t_ 表 或 名 称 _tab (用 于 PL/SQL 表 ) o 


` fec_ 记 录 名 或 名 称 _rec (用 于 记录 变量 ) 。 


епт (АВРАХ) o 


БАУ КАУ ЖЕЕ ТЕШ ЕЛНЫ ЕТПЕЙ ЕМ TAR FEARIN. 


ЕАУ КАУ EREA ТЕО ЕГ FAN. ВАА ЛЕ аара ААВ. 


示例 
PACKAGE student admin | 
-- admin 后 级 可 以 用 于 管理 (administration) 
PROCEDURE remove student (і student іа IN student.studid%TYPE).; 
FUNCTION student епго11 count (1 student іа student.studid%TYPE) 
RETURN INTEGER; 
注释 


注释 在 PL/SQL 中 与 在 SQL 中 同样 重要 。 它 们 应 该 解释 程序 的 主要 部 分 和 任何 重要 的 逻辑 步 又 。 
使 用 单行 注释 “--” 而 不 是 多 行 “/*” 注 释 。 昌 然 PL/SQL 以 同样 的 方式 看 待 这 些 注释 ,但 一 旦 你 完成 了 代码 ， 这 么 做 会 更 容易 调试 ， 因 为 你 不 能 在 
多 行 注释 中 俯 入 多 行 注释 。 换 名 话说， 你 可 以 注释 挥 一 部 分 包含 单行 注释 的 代码 ， 但 你 不 能 注释 揉 一 部 分 包含 多 行 注释 的 代码 。 


其 他 建议 


这 里 有 一 些 额 外 的 小 建议 ， 以 帮助 你 确保 PL/SQL 代 码 整洁 且 易 于 理解 。 
` 对 于 能 入 在 PL/SQL 中 的 SQL 语句 ， 使 用 相同 的 格式 化 准则 来 确定 此 语句 应 如 何在 一 个 块 中 出 现 。 
提供 解释 块 的 意图 ， 并 列 出 创建 日 期 和 作者 姓名 的 注释 标题 。 并 为 每 次 修订 标明 作者 姓名 、 日 期 和 修订 说 明 。 


下 面 的 示例 展示 了 上 述 建议 。 请 注意 ， 它 也 使 用 了 使 格式 化 更 容易 的 等 宽 字 体 (ЖЖ) 。 按 比例 隅 开 的 字体 会 隐藏 空格 ， 使 对 齐 子 句 变 得 很 难 。 大 
多 数 文 本 和 编程 编辑 器 都 默认 使 用 等 宽 字 体 。 


示例 


REM 关 大 大 大 大 大 大 大 大 大 大 大 并 大 大 大 大 大 并 大 大 大 大 大 大大 大 大 大 大 并 大 大 大 大 大 并 大大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 并 大 


REM * 文件 名 : coursediscount01.sqgl ЖЖ: 1 
REM * 用 途 : 为 至 少 拥有 一 个 注册 学 生 数 超过 10 人 的 课 班 的 课程 提供 费用 折扣 
REM * 参数 : 无 
REM * 
REM * 创建 者 : s.tashi НЯ: 2000 年 1 月 1 日 
REM * 修改 者 : y.sonam 日 期 : 2000 年 2 月 1 日 
REM * 说 明 : 修复 游标 ， 添 加 缩 进 和 注 妓 
REM 米 淡淡 火炎 火炎 炎炎 火炎 火炎 次 火炎 炎炎 次 火炎 次 火灾 火炎 次 火炎 次 火炎 炎炎 炎炎 炎炎 火炎 次 火炎 火炎 炎炎 炎炎 火灾 火炎 炎炎 类 
DECLARE 
-- C_DISCOUNT_COURSE 找 出 至 少 拥有 一 个 注册 学 生 数 至 少 10 人 的 课 班 的 课程 清单 
CURSOR c discount course IS 
SELECT DISTINCT course no 
FROM section sect 
WHERE 10 <= (SELECT COUNT (*) 
FROM enrollment enr 
WHERE enr.section id = sect.section id 


t; 


-- 费用 超过 2000.00 美元 的 课程 的 折扣 率 
con discount 2000 CONSTANT NUMBER := .90; 


-- 费用 在 1001.00 美元 与 2000.00 美元 之 间 的 课程 的 折扣 率 
con discount other CONSTANT NUMBER := .95; 


у current course cost course.cost%TYPE; 
у discount а11 NUMBER; 
е update is problematic ЕХСЕРТТОМ; 
BEGIN 
-- 对 于 要 打折 扣 的 课程 ， 确 定 当 前 费用 和 新 的 费用 的 值 
FOR r discount course іп с discount course LOOP 
SELECT cost 
INTO v _ current course cost 
FROM course 
WHERE course no = r discount course.course no; 


IF v current course cost > 2000 THEN 
у discount all := con discount 2000; 
ELSE 
IF v current course cost > 1000 THEN 
v_discount_all := con discount other; 
ELSE 


v discount all := 1; 
END IF; 
END IF; 


BEGIN 
UPDATE course 
SET cost = cost * v discount all 
WHERE course_no = r discount course.course по; 
EXCEPTION 
WHEN OTHERS THEN 
RAISE е _update_is_ problematic; 


END; -- 更 新 记录 的 子 块 结束 
END LOOP; -- 主 循环 结束 
СОММТТ; 

ЕХСЕРТТОМ 


WHEN e_update is problematic THEN 
-- 撤销 在 这 次 程序 运行 中 的 所 有 事务 
ROLLBACK; 
DBMS OUTPUT .PUT_LINE 
('There was a problem updating a course cost.'); 
WHEN OTHERS THEN 


NULL; 
END; 
/ 
附录 B 学 生 数 据 库 模式 
KRANS hi BH 


本 附录 列 出 了 本 书 所 使 用 的 STUDENT 数据 库 模 式 中 的 表 。 列 在 这 里 的 每 个 表 ， 首 先 都 显示 数据 库 表 名 ， 紧 跟着 的 是 在 此 表 中 的 列 、 是 人 否 允 许 空 值 的 
所 示 符 、 列 的 数据 类 型 ， 以 及 列 的 摘 述 。 安 委 此 数据 库 的 脚本 可 在 本 书 的 配套 网 站 找到 。 


COURSE: 一 门 课 程 的 信息 


列 名 说 有明 
COURSE NO 唯一 的 诛 程 编号 
DESCRIPTION 本 课程 的 全 名 
COST 注册 本 诛 程 的 有 用 
PREREQUISITE ДИРЕН СВР ІР 号 
CREATED_BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED РАТЕ 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


SECTION: 特定 课程 的 各 个 课 班 (班级) 的 信息 


I z 类 x ТЕШ: 
SECTION ID NOT NULL NUMBER (8,0) 一 个 课 班 的 唯一 ID 
COURSE NO NOT NULL NUMBER (8,0) 这 个 课 班 的 课程 编号 


列 Ж 
SECTION NO 
STRRT РАТЕ TIME 
LOCATION 
INSTRUCTOR Ір 
CAPACITY 
CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED РАТЕ 


列 
STUDENT_ID 


名 


SALUTATION 
FIRST МАМЕ 
LAST МАМЕ 
STREET ADDRESS 
ZIP 

PHONE 

EMPLOYER 


REGISTRATION DATE 


CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED DATE 


1 Ж 
STUDENT Ір 
SECTION ID 
ENROLL DATE 
FINAL GRADE 
CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED DATE 


Ње = 
NOT NULL 


NULL 
NULL 
NOT NULL 


NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NOT NULL 


} 


/. 


Н 


NOT NULL 


NULL 


NULL 


NOT NULL 


NULL 


NOT NULL 


NULL 


NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NOT NULL 


NUMBER (3) 


. $ ~ 
. IN 


TEE 
E| $ 
түң 


Ф 
7 


NUMBER (8,0) 
VARCHAR2 (5) 
УАВСНАР2 (25) 
VARCHAR2 (25) 
VARCHAR2 (50) 
VARCHAR2 (5) 
VARCHAR2 (15) 
VARCHAR2 (50) 
DATE 
VARCHAR2 (30) 
DATE 
VARCHAR2 (30) 


DATE 


(ЖЕ) 
说 
此 课程 的 各 个 课 班 编号 
这 个 课 班 开课 的 日 期 和 时 间 
这 个 课 班 的 教室 
讲授 这 个 课 班 的 教师 的 ID 号 
这 个 课 班 允许 的 最 多 学 生 人 数 
审计 列 一 一 表明 插入 数据 的 用 户 
审计 列 一 一 表明 数据 插入 的 日 期 
审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


RH 


说 
某 个 学 生 的 唯一 ID 
这 名 学 生 的 称呼 (in, tt, wÆ, ËE) 
这 名 学 生 的 名 字 
这 名 学 生 的 姓 
这 名 学 生 的 街道 地 址 
这 名 学 生 的 邮政 编码 
这 名 学 生 的 电话 号 码 ， 包括 区 号 
这 名 学 生 就 业 的 公司 名 称 
这 名 学 生 注 册 本 项 目的 日 期 
审计 列 一 一 表明 插入 数据 的 用 户 
审计 列 一 一 表明 数据 插入 的 日 期 
审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


明 


ENROLLMENT: 注册 了 一 门 特定 的 课程 的 特定 课 班 (班级 ) 的 学 生 信 息 


Н} 


т=п |=ү ја а |а ж 
>Ш 091010191916 | 06 
М. | а: Er d Ee 3 чүн |+ 
а|а|а|ар |&|а|уа 
Е ПЕТЕ == ем E 
Ее ЕЙ a E Е >. 


NUMBER (8,0) 
NUMBER (8,0) 
DATE 

NUMBER (3,0) 
VARCHAR2 (30) 
DATE 
VARCHAR2 (30) 


DATE 


INSTRUCTOR: 教师 档案 信息 


їй 明 


一 个 学 生 的 ID 

一 个 课 班 的 ID 

这 名 学 生 注册 本 课 班 的 日 期 

这 名 学 生 在 本 个 课 班 (班级 ) 上 取得 的 最 终 成 绩 
审计 列 一 一 表明 插入 数据 的 用 户 

审计 列 一 一 表明 数据 插入 的 日 期 

审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


а. 


ПИЕ: w m 
INSTRUCTOR ID 教师 的 唯一 ID 
SALUTATION 这 名 教师 的 称呼 (例如, 先生、 女士 、 博 士 、 牧 师 ) 
FIRST NAME 这 名 教师 的 名 字 
LAST_NAME 这 名 教师 的 姓 
STREET ADDRESS 这 名 教师 的 街道 地 址 
ZIP 这 名 教师 的 邮政 编码 
PHONE 这 名 教师 的 电话 号 码 ， 包 括 区 号 
CREATED_BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


ZIPCODE: 城市 、 州 和 邮政 编码 信息 


ПШ: ГЕШ 
ZIP 邮政 编码 在 一 个 城市 和 州 中 唯一 
CITY 这 个 邮政 编码 所 在 的 城市 名 
STATE CAMEE 
CREATED BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED_DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIEIED_BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED_DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


GRADE_TYPE: 成 绩 类 别 (编号 ) 及 其 说 明 的 查找 表 


列 名 说 明 
GRADE_TYPE_CODE 表明 成 绩 类 别 的 唯一 代码 (例如, МТ. НУМ) 
DESCRIPTION 此 代码 的 说 明 (例如 ， 期 中 考 、 家 庭 作业 ) 
CREATED BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED_DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED_BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


GRADE_TYPE_WEIGHT: 关于 特定 课 班 的 最 终 成 绩 如 何 计 算 的 信息 ， 例如， 在 最 终 成 绩 中 ， 期 中 考 占 50%， 测 验 占 10%， 而 期 末 考 试 占 40% 


ПИЕ: ТЕШ 
SECTION тр яви 


GRADE ТҮРЕ | т - 
тта Е 5 CHAR (2) 表明 革 个 成 绩 类 别 的 代码 


列 


NUMBER РЕК 


SECTION 


FERCENT ОЕ 


FINAL GRADE 


 & | 
ШЕЕ 


NOT NULL NUMBER (3) 


. 


这 些 成 绩 类 别 有 多 
个 测验 ) 


一 本 成 绩 类 别 在 最 终 成 绩 中 的 比例 


(Z ) 


说 有明 
Anj H FERRIE СВ пу peA = 


DROP_LOWEST 决定 最 终 成 绩 时 ， 这 种 类 别 中 的 最 低 成 绩 会 被 
一 ксы 
CREATED_BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED_DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 
GRADE: 一 个 学 生 从 一 个 特定 课 班 (班级 ) 获得 的 成 绩 
列 名 类 型 说 有明 
SECTION ID 一 个 课 班 的 了 
СЕАРЕ ТҮРЕ CODE СНАЕ (2) 用 于 标识 成 绩 类 别 的 代码 
GRADE CODE ЛТЖВЕН М л ЭФ 0 АЈ Л o И, a AEA 
OCCURRENCE E 编号 1、2、3 等 的 多 个 分 配 
NUMERIC GRADE 分 数值 (例如 ，70、75 ) 
COMMENTS 教师 对 这 个 成 绩 的 注释 
CREATED BY 审计 列 一 一 表明 插入 数据 的 用 户 
CREATED DATE DATE 审计 列 一 一 表明 数据 插入 的 日 期 
MODIFIED_ BY 审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
MODIFIED DATE 审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 
GRADE_CONVERSION: 将 分 数 转换 为 字母 成 绩 
ДИ: 说 有 明 
LETTER GRADE 唯一 的 字母 成 绩 (A、A -、B、B+ 等 ) 


СЕАРЕ POINT 
МАХ GRADE 
MIN GRADE 
CREATED BY 
CREATED DATE 
MODIFIED BY 


MODIFIED DATE NOT NULL DATE 


图 B-1 所 示 的 学 生 模式 的 表 的 实体 关系 图 使 用 标准 鱼尾纹 区 头 显 示 了 这 些 表 及 其 外 键 天 系 。 


从 0 (F) 到 4 (А) 的 分 数 

对 应 于 该 字母 成 绩 的 最 高 分 数 

对 应 于 该 字母 成 绩 的 最 低 分 数 

审计 列 一 一 表明 插入 数据 的 用 户 

审计 列 一 一 表明 数据 插入 的 日 期 

审计 列 一 一 表明 执行 最 后 一 次 更 新 的 用 户 
审计 列 一 一 表明 最 后 一 次 更 新 的 日 期 


GRADE CONVERSION 


LETTER GRADE (K) VARCHAF2I2) Р 
NUMBERI3.2) | DESCRPTION 
NMBER3.,0) ' CREATED BY 

NMGER3.0) NOT NUL CREATED САТЕ 
MCCIFED БҮ 


MCCIFED_DATE 


STUDENT О (FK FK) NUNMBER 8.0) 
стом DIPQIUFN NUMBEF30) 
CRADE жб ды. PKIO САҢ? GRADE ТҮРЕ ОЕ (аР CHARI 2) NOT NULL 
TOE эма. 2998 | NNESR РЕЗ SECTION NUMEER 3.0) NOTNULL 

_ NUMBER30) | PEACENT_OF FNAL_GRADE NJMBERI3.0) 


VARCHAR2/ 2000) 
VARCHAR 3O) 


Í STUDENT_D (PQ (FK) МАБ ҢЕЛ) NOT NUL 
| SECTION D (PQF) ммвеңед) 


START САТЕ TME DATE 
LOCATION VARCHAR2(50) 

| INSTRUCTOR О (FK) NUMBER80) NOT NULL 
NUMBERI3.0) NULL 
VARCHAR2(30) NOT NULL 
DATE NOT NULL 
VARCHAF2[30) NOT NULL 
DATE NOT NULL 


CDURSE NO(PK) NUMEERS.0) NOTNULL 
DESCRPTON VARCHAR2(S0) NOT NULL 

OST NUMEESR 3.2) NULL INSTRUCTOR_D(R) NJMESRS.0) 
КЕРЕШ ПЕ (РК) NMEERIS, O) NULL SALUTATION VARCHAR2{5) 
CREATED BY УАЯСНАЯ2(30) NOT NLL VARCHAF2I25) 
CREATED DATE СОАТЕ NOT NULL A VARCAA R2125) 
MDDFED 5Y VARCHAF2I30) NOT NULL Б) 
MDDFED DATE СОАТЕ NCT NULL 


RONE ZP (F) VARCHAFR2(5) NOT NULL 
VARCHAF2(50) STU ZP CTY VARCHARJ/25) NL 

STATE VARCHAR22) NULL 
CREATED BY МАЯСНАЯ2(30) NOT NULL 
CREATED DATE САТЕ 


VARCHAR2/30) МОТ NULL 


DATE NOT NULL 


图 B-1 


[1] 根据 课程 建立 的 班级 。 译 者 注 


